home *** CD-ROM | disk | FTP | other *** search
| Unknown | 1999-03-16 | 27.2 KB |
open in: 
MacOS 8.1
|
Win98
|
DOS
view JSON data
|
view as text
This file was not able to be converted.
This format is not currently supported by dexvert.
| Confidence | Program | Detection | Match Type | Support
|
|---|
| 1%
| dexvert
| ChemDraw Template (other/chemDrawTemplate)
| ext
| Unsupported |
| 100%
| file
| data
| default
| |
| 100%
| TrID
| TERSE compressed data (PACK, U)
| default (weak)
|
|
hex view+--------+-------------------------+-------------------------+--------+--------+
|00000000| 02 00 00 00 01 00 ff ff | 00 00 17 00 78 78 43 6f |........|....xxCo|
|00000010| 6e 74 72 61 63 74 53 75 | 70 70 6f 72 74 53 63 72 |ntractSu|pportScr|
|00000020| 69 70 74 02 00 00 00 11 | 55 52 4c 20 45 73 63 61 |ipt.....|URL Esca|
|00000030| 70 65 20 53 70 61 63 65 | 73 ff 69 01 2f 2f 20 54 |pe Space|s.i.// T|
|00000040| 68 69 73 20 66 75 6e 63 | 74 69 6f 6e 20 72 65 70 |his func|tion rep|
|00000050| 6c 61 63 65 73 20 61 6c | 6c 20 74 68 65 20 73 70 |laces al|l the sp|
|00000060| 61 63 65 73 20 69 6e 20 | 74 68 65 20 0d 0a 2f 2f |aces in |the ..//|
|00000070| 20 69 6e 20 73 74 72 69 | 6e 67 20 77 69 74 68 20 | in stri|ng with |
|00000080| 25 32 30 2e 20 20 46 6f | 72 20 75 73 65 20 77 69 |%20. Fo|r use wi|
|00000090| 74 68 20 55 52 4c 20 73 | 74 72 69 6e 67 73 2e 0d |th URL s|trings..|
|000000a0| 0a 66 75 6e 63 74 69 6f | 6e 20 55 52 4c 45 73 63 |.functio|n URLEsc|
|000000b0| 61 70 65 53 70 61 63 65 | 73 28 73 74 72 49 6e 29 |apeSpace|s(strIn)|
|000000c0| 0d 0a 7b 0d 0a 0d 0a 09 | 76 61 72 20 61 20 3d 20 |..{.....|var a = |
|000000d0| 22 20 22 0d 0a 09 76 61 | 72 20 62 20 3d 20 22 25 |" "...va|r b = "%|
|000000e0| 32 30 22 0d 0a 09 76 61 | 72 20 63 20 3d 20 73 74 |20"...va|r c = st|
|000000f0| 72 49 6e 0d 0a 0d 0a 09 | 76 61 72 20 69 20 3d 20 |rIn.....|var i = |
|00000100| 63 2e 69 6e 64 65 78 4f | 66 28 61 29 3b 0d 0a 09 |c.indexO|f(a);...|
|00000110| 76 61 72 20 6c 20 3d 20 | 62 2e 6c 65 6e 67 74 68 |var l = |b.length|
|00000120| 3b 0d 0a 0d 0a 09 77 68 | 69 6c 65 20 28 69 20 21 |;.....wh|ile (i !|
|00000130| 3d 20 2d 31 29 09 7b 0d | 0a 09 09 63 20 3d 20 63 |= -1).{.|...c = c|
|00000140| 2e 73 75 62 73 74 72 69 | 6e 67 28 30 2c 69 29 20 |.substri|ng(0,i) |
|00000150| 2b 20 62 20 2b 20 63 2e | 73 75 62 73 74 72 69 6e |+ b + c.|substrin|
|00000160| 67 28 69 20 2b 20 61 2e | 6c 65 6e 67 74 68 2c 63 |g(i + a.|length,c|
|00000170| 2e 6c 65 6e 67 74 68 29 | 3b 0d 0a 09 09 69 20 3d |.length)|;....i =|
|00000180| 20 63 2e 69 6e 64 65 78 | 4f 66 28 61 2c 69 29 3b | c.index|Of(a,i);|
|00000190| 0d 0a 09 7d 0d 0a 09 72 | 65 74 75 72 6e 20 63 3b |...}...r|eturn c;|
|000001a0| 0d 0a 0d 0a 7d e0 5a 9c | 93 23 83 d2 11 80 52 00 |....}.Z.|.#....R.|
|000001b0| 10 4b d3 38 d1 09 00 ff | ff 00 00 0a 00 78 78 43 |.K.8....|.....xxC|
|000001c0| 6f 6e 74 72 61 63 74 12 | 00 00 00 00 01 00 00 00 |ontract.|........|
|000001d0| 32 50 6c 61 63 65 20 63 | 6c 69 65 6e 74 2d 73 69 |2Place c|lient-si|
|000001e0| 64 65 20 70 61 73 73 77 | 6f 72 64 20 70 72 6f 74 |de passw|ord prot|
|000001f0| 65 63 74 69 6f 6e 20 6f | 6e 20 74 68 69 73 20 70 |ection o|n this p|
|00000200| 61 67 65 00 00 02 00 ff | ff 00 00 0d 00 78 78 53 |age.....|.....xxS|
|00000210| 63 72 69 70 74 50 61 72 | 61 6d 05 00 00 00 08 50 |criptPar|am.....P|
|00000220| 61 73 73 77 6f 72 64 00 | 00 00 00 08 00 10 00 00 |assword.|........|
|00000230| 00 70 00 61 00 73 00 73 | 00 77 00 6f 00 72 00 64 |.p.a.s.s|.w.o.r.d|
|00000240| 00 00 00 00 00 00 00 00 | 00 00 00 00 05 80 05 00 |........|........|
|00000250| 00 00 13 52 65 64 69 72 | 65 63 74 20 4f 6e 20 46 |...Redir|ect On F|
|00000260| 61 69 6c 75 72 65 00 00 | 00 00 08 00 12 00 00 00 |ailure..|........|
|00000270| 68 00 6f 00 6d 00 65 00 | 2e 00 68 00 74 00 6d 00 |h.o.m.e.|..h.t.m.|
|00000280| 6c 00 00 00 00 00 00 00 | 00 00 00 00 00 08 53 65 |l.......|......Se|
|00000290| 63 75 72 69 74 79 00 00 | 00 00 00 00 03 00 00 00 |curity..|........|
|000002a0| 01 00 00 00 02 00 ff ff | 00 00 10 00 78 78 43 6f |........|....xxCo|
|000002b0| 6e 74 72 61 63 74 41 63 | 74 69 6f 6e 04 00 00 00 |ntractAc|tion....|
|000002c0| 06 6f 6e 4c 6f 61 64 01 | 00 00 00 00 00 00 00 cb |.onLoad.|........|
|000002d0| 70 77 20 3d 20 70 72 6f | 6d 70 74 28 22 45 6e 74 |pw = pro|mpt("Ent|
|000002e0| 65 72 20 74 68 65 20 73 | 69 74 65 20 70 61 73 73 |er the s|ite pass|
|000002f0| 77 6f 72 64 22 29 3b 0d | 0a 69 66 20 28 70 77 20 |word");.|.if (pw |
|00000300| 21 3d 20 5b 50 61 73 73 | 77 6f 72 64 5d 29 0d 0a |!= [Pass|word])..|
|00000310| 7b 0d 0a 20 20 61 6c 65 | 72 74 28 22 49 6e 63 6f |{.. ale|rt("Inco|
|00000320| 72 72 65 63 74 20 70 61 | 73 73 77 6f 72 64 20 2d |rrect pa|ssword -|
|00000330| 20 73 65 65 20 74 68 65 | 20 73 69 74 65 20 61 64 | see the| site ad|
|00000340| 6d 69 6e 69 73 74 72 61 | 74 6f 72 20 66 6f 72 20 |ministra|tor for |
|00000350| 74 68 65 20 63 6f 72 72 | 65 63 74 20 70 61 73 73 |the corr|ect pass|
|00000360| 77 6f 72 64 22 29 3b 0d | 0a 20 20 77 69 6e 64 6f |word");.|. windo|
|00000370| 77 2e 6c 6f 63 61 74 69 | 6f 6e 2e 68 72 65 66 20 |w.locati|on.href |
|00000380| 3d 20 5b 52 65 64 69 72 | 65 63 74 20 4f 6e 20 46 |= [Redir|ect On F|
|00000390| 61 69 6c 75 72 65 5d 3b | 0d 0a 7d 08 80 04 00 00 |ailure];|..}.....|
|000003a0| 00 06 6f 6e 42 6c 75 72 | 01 00 00 00 00 00 00 00 |..onBlur|........|
|000003b0| 00 51 82 ae e7 83 bf d1 | 11 8c 96 00 60 08 3e 34 |.Q......|....`.>4|
|000003c0| a5 00 00 00 00 00 00 ff | f1 01 44 65 73 63 72 69 |........|..Descri|
|000003d0| 70 74 69 6f 6e 3a 0d 0a | 46 6f 72 63 65 73 20 61 |ption:..|Forces a|
|000003e0| 20 75 73 65 72 20 74 6f | 20 69 6e 70 75 74 20 61 | user to| input a|
|000003f0| 20 70 61 73 73 77 6f 72 | 64 20 61 73 20 64 65 66 | passwor|d as def|
|00000400| 69 6e 65 64 20 77 68 65 | 6e 20 74 68 65 20 63 6f |ined whe|n the co|
|00000410| 6e 74 72 61 63 74 20 69 | 73 20 63 72 65 61 74 65 |ntract i|s create|
|00000420| 64 20 61 6e 64 20 72 65 | 64 69 72 65 63 74 73 20 |d and re|directs |
|00000430| 74 6f 20 61 6e 6f 74 68 | 65 72 20 70 61 67 65 20 |to anoth|er page |
|00000440| 69 66 20 74 68 65 20 70 | 61 73 73 77 6f 72 64 20 |if the p|assword |
|00000450| 69 73 20 69 6e 63 6f 72 | 72 65 63 74 2e 20 20 28 |is incor|rect. (|
|00000460| 6c 69 67 68 74 20 73 65 | 63 75 72 69 74 79 29 0d |light se|curity).|
|00000470| 0a 0d 0a 50 61 72 61 6d | 65 74 65 72 73 3a 0d 0a |...Param|eters:..|
|00000480| 50 61 73 73 77 6f 72 64 | 20 2d 20 50 61 73 73 77 |Password| - Passw|
|00000490| 6f 72 64 20 74 68 61 74 | 20 6d 75 73 74 20 62 65 |ord that| must be|
|000004a0| 20 69 6e 70 75 74 20 62 | 79 20 61 20 75 73 65 72 | input b|y a user|
|000004b0| 0d 0a 52 65 64 69 72 65 | 63 74 20 6f 6e 20 46 61 |..Redire|ct on Fa|
|000004c0| 69 6c 75 72 65 20 2d 20 | 70 61 67 65 20 74 6f 20 |ilure - |page to |
|000004d0| 67 6f 20 74 6f 20 69 66 | 20 74 68 65 20 70 61 73 |go to if| the pas|
|000004e0| 73 77 6f 72 64 20 69 73 | 20 69 6e 63 6f 72 72 65 |sword is| incorre|
|000004f0| 63 74 0d 0a 0d 0a 54 79 | 70 69 63 61 6c 20 50 61 |ct....Ty|pical Pa|
|00000500| 72 74 69 63 69 70 61 6e | 74 73 3a 0d 0a 6e 6f 6e |rticipan|ts:..non|
|00000510| 65 20 0d 0a 0d 0a 46 6f | 72 20 6d 6f 72 65 20 69 |e ....Fo|r more i|
|00000520| 6e 66 6f 72 6d 61 74 69 | 6f 6e 20 6f 6e 20 63 6f |nformati|on on co|
|00000530| 6e 74 72 61 63 74 73 20 | 6f 66 20 74 68 69 73 20 |ntracts |of this |
|00000540| 63 61 74 65 67 6f 72 79 | 2c 20 70 6c 65 61 73 65 |category|, please|
|00000550| 20 72 65 66 65 72 20 74 | 6f 0d 0a 53 65 63 75 72 | refer t|o..Secur|
|00000560| 69 74 79 2e 64 6f 63 0d | 0a 54 68 69 73 20 66 69 |ity.doc.|.This fi|
|00000570| 6c 65 20 69 73 20 61 76 | 61 69 6c 61 62 6c 65 20 |le is av|ailable |
|00000580| 69 6e 20 74 68 65 20 43 | 6f 6e 74 72 61 63 74 73 |in the C|ontracts|
|00000590| 20 66 6f 6c 64 65 72 20 | 69 6e 20 74 68 65 20 44 | folder |in the D|
|000005a0| 72 75 6d 62 65 61 74 20 | 64 69 72 65 63 74 6f 72 |rumbeat |director|
|000005b0| 79 2e 0d 0a 56 31 30 5f | 33 30 2e 03 80 12 00 00 |y...V10_|30......|
|000005c0| 00 50 56 65 72 69 66 79 | 20 75 73 65 72 6e 61 6d |.PVerify| usernam|
|000005d0| 65 20 66 72 6f 6d 20 5b | 75 73 65 72 62 6f 78 5d |e from [|userbox]|
|000005e0| 20 61 6e 64 20 70 61 73 | 73 77 6f 72 64 20 66 72 | and pas|sword fr|
|000005f0| 6f 6d 20 5b 70 61 73 73 | 62 6f 78 5d 20 61 6e 64 |om [pass|box] and|
|00000600| 20 73 65 74 20 61 63 63 | 65 73 73 20 67 72 6f 75 | set acc|ess grou|
|00000610| 70 20 01 00 00 00 39 56 | 65 72 69 66 79 20 75 73 |p ....9V|erify us|
|00000620| 65 72 6e 61 6d 65 20 61 | 6e 64 20 70 61 73 73 77 |ername a|nd passw|
|00000630| 6f 72 64 20 66 72 6f 6d | 20 66 6f 72 6d 20 69 6e |ord from| form in|
|00000640| 70 75 74 20 61 6e 64 20 | 72 65 64 69 72 65 63 74 |put and |redirect|
|00000650| 05 00 ff ff 00 00 15 00 | 78 78 43 6f 6e 74 72 61 |........|xxContra|
|00000660| 63 74 50 61 72 74 69 63 | 69 70 61 6e 74 01 00 00 |ctPartic|ipant...|
|00000670| 00 06 73 6f 75 72 63 65 | 02 00 ff ff 00 00 15 00 |..source|........|
|00000680| 78 78 43 6f 6e 74 72 61 | 63 74 52 65 71 75 69 72 |xxContra|ctRequir|
|00000690| 65 6d 65 6e 74 03 00 00 | 00 00 00 00 00 08 53 65 |ement...|......Se|
|000006a0| 72 76 65 72 28 29 0e 80 | 03 00 00 00 01 00 00 00 |rver()..|........|
|000006b0| 14 47 65 74 43 6f 6c 75 | 6d 6e 56 61 6c 75 65 28 |.GetColu|mnValue(|
|000006c0| 6e 61 6d 65 29 01 00 08 | 80 04 00 00 00 08 53 65 |name)...|......Se|
|000006d0| 72 76 65 72 28 29 02 00 | 00 00 00 00 00 00 ff a9 |rver()..|........|
|000006e0| 02 69 66 20 28 52 65 71 | 75 65 73 74 2e 46 6f 72 |.if (Req|uest.For|
|000006f0| 6d 2e 4b 65 79 28 22 5b | 74 61 72 67 65 74 5d 22 |m.Key("[|target]"|
|00000700| 29 20 21 3d 20 22 22 29 | 20 20 7b 0d 0a 20 20 76 |) != "")| {.. v|
|00000710| 61 72 20 66 69 6c 74 65 | 72 5f 73 74 72 69 6e 67 |ar filte|r_string|
|00000720| 20 3d 20 5b 55 73 65 72 | 4e 61 6d 65 43 6f 6c 75 | = [User|NameColu|
|00000730| 6d 6e 5d 20 2b 20 22 3d | 20 27 22 20 2b 20 53 74 |mn] + "=| '" + St|
|00000740| 72 69 6e 67 28 52 65 71 | 75 65 73 74 28 22 5b 75 |ring(Req|uest("[u|
|00000750| 73 65 72 62 6f 78 5d 22 | 29 29 20 2b 20 22 27 20 |serbox]"|)) + "' |
|00000760| 41 4e 44 20 22 20 2b 20 | 5b 50 61 73 73 77 6f 72 |AND " + |[Passwor|
|00000770| 64 43 6f 6c 75 6d 6e 5d | 20 2b 20 22 20 3d 20 27 |dColumn]| + " = '|
|00000780| 22 20 2b 20 53 74 72 69 | 6e 67 28 52 65 71 75 65 |" + Stri|ng(Reque|
|00000790| 73 74 28 22 5b 70 61 73 | 73 62 6f 78 5d 22 29 29 |st("[pas|sbox]"))|
|000007a0| 20 2b 20 22 27 22 3b 0d | 0a 20 20 76 61 72 20 74 | + "'";.|. var t|
|000007b0| 6f 66 6f 72 77 61 72 64 | 20 3d 20 5b 41 64 64 69 |oforward| = [Addi|
|000007c0| 74 69 6f 6e 61 6c 52 65 | 71 75 65 73 74 54 6f 46 |tionalRe|questToF|
|000007d0| 6f 72 77 61 72 64 5d 0d | 0a 0d 0a 20 20 5b 73 6f |orward].|... [so|
|000007e0| 75 72 63 65 5d 2e 46 69 | 6c 74 65 72 28 66 69 6c |urce].Fi|lter(fil|
|000007f0| 74 65 72 5f 73 74 72 69 | 6e 67 29 3b 0d 0a 0d 0a |ter_stri|ng);....|
|00000800| 20 20 69 66 20 28 5b 73 | 6f 75 72 63 65 5d 2e 49 | if ([s|ource].I|
|00000810| 73 42 4f 46 28 29 20 26 | 26 20 5b 73 6f 75 72 63 |sBOF() &|& [sourc|
|00000820| 65 5d 2e 49 73 45 4f 46 | 28 29 29 0d 0a 20 20 20 |e].IsEOF|()).. |
|00000830| 20 7b 0d 0a 20 20 09 09 | 20 20 52 65 73 70 6f 6e | {.. ..| Respon|
|00000840| 73 65 2e 52 65 64 69 72 | 65 63 74 28 65 73 63 61 |se.Redir|ect(esca|
|00000850| 70 65 28 5b 46 61 69 6c | 65 64 52 65 64 69 72 65 |pe([Fail|edRedire|
|00000860| 63 74 5d 29 29 3b 0d 0a | 20 20 20 20 7d 0d 0a 20 |ct]));..| }.. |
|00000870| 20 65 6c 73 65 20 20 7b | 0d 0a 09 20 20 20 53 65 | else {|... Se|
|00000880| 73 73 69 6f 6e 28 22 53 | 65 73 73 69 6f 6e 50 61 |ssion("S|essionPa|
|00000890| 73 73 77 6f 72 64 22 29 | 3d 53 74 72 69 6e 67 28 |ssword")|=String(|
|000008a0| 5b 73 6f 75 72 63 65 5d | 2e 47 65 74 43 6f 6c 75 |[source]|.GetColu|
|000008b0| 6d 6e 56 61 6c 75 65 28 | 5b 41 63 63 65 73 73 20 |mnValue(|[Access |
|000008c0| 47 72 6f 75 70 5d 29 29 | 0d 0a 20 20 20 20 69 66 |Group]))|.. if|
|000008d0| 20 28 74 6f 66 6f 72 77 | 61 72 64 21 3d 22 22 29 | (toforw|ard!="")|
|000008e0| 0d 0a 20 20 20 20 20 20 | 53 65 73 73 69 6f 6e 28 |.. |Session(|
|000008f0| 5b 41 64 64 69 74 69 6f | 6e 61 6c 52 65 71 75 65 |[Additio|nalReque|
|00000900| 73 74 54 6f 46 6f 72 77 | 61 72 64 5d 29 3d 53 74 |stToForw|ard])=St|
|00000910| 72 69 6e 67 28 5b 73 6f | 75 72 63 65 5d 2e 47 65 |ring([so|urce].Ge|
|00000920| 74 43 6f 6c 75 6d 6e 56 | 61 6c 75 65 28 5b 41 64 |tColumnV|alue([Ad|
|00000930| 64 69 74 69 6f 6e 61 6c | 52 65 71 75 65 73 74 54 |ditional|RequestT|
|00000940| 6f 46 6f 72 77 61 72 64 | 5d 29 29 0d 0a 09 20 20 |oForward|]))... |
|00000950| 20 52 65 73 70 6f 6e 73 | 65 2e 52 65 64 69 72 65 | Respons|e.Redire|
|00000960| 63 74 28 65 73 63 61 70 | 65 28 5b 53 75 63 63 65 |ct(escap|e([Succe|
|00000970| 73 73 52 65 64 69 72 65 | 63 74 5d 29 29 3b 20 20 |ssRedire|ct])); |
|00000980| 20 20 0d 0a 20 20 7d 0d | 0a 7d 01 00 00 00 ff 0e | .. }.|.}......|
|00000990| 03 69 66 20 28 52 65 71 | 75 65 73 74 2e 46 6f 72 |.if (Req|uest.For|
|000009a0| 6d 2e 4b 65 79 28 22 5b | 74 61 72 67 65 74 5d 22 |m.Key("[|target]"|
|000009b0| 29 20 3c 3e 20 22 22 29 | 20 20 74 68 65 6e 0d 0a |) <> "")| then..|
|000009c0| 20 20 66 69 6c 74 65 72 | 5f 73 74 72 69 6e 67 20 | filter|_string |
|000009d0| 3d 20 5b 55 73 65 72 4e | 61 6d 65 43 6f 6c 75 6d |= [UserN|ameColum|
|000009e0| 6e 5d 20 2b 20 22 3d 20 | 27 22 20 2b 20 63 53 74 |n] + "= |'" + cSt|
|000009f0| 72 28 52 65 71 75 65 73 | 74 28 22 5b 75 73 65 72 |r(Reques|t("[user|
|00000a00| 62 6f 78 5d 22 29 29 20 | 2b 20 22 27 20 41 4e 44 |box]")) |+ "' AND|
|00000a10| 20 22 20 2b 20 5b 50 61 | 73 73 77 6f 72 64 43 6f | " + [Pa|sswordCo|
|00000a20| 6c 75 6d 6e 5d 20 2b 20 | 22 20 3d 20 27 22 20 2b |lumn] + |" = '" +|
|00000a30| 20 63 53 74 72 28 52 65 | 71 75 65 73 74 28 22 5b | cStr(Re|quest("[|
|00000a40| 70 61 73 73 62 6f 78 5d | 22 29 29 20 2b 20 22 27 |passbox]|")) + "'|
|00000a50| 22 0d 0a 20 20 74 6f 66 | 6f 72 77 61 72 64 20 3d |".. tof|orward =|
|00000a60| 20 5b 41 64 64 69 74 69 | 6f 6e 61 6c 52 65 71 75 | [Additi|onalRequ|
|00000a70| 65 73 74 54 6f 46 6f 72 | 77 61 72 64 5d 0d 0a 20 |estToFor|ward].. |
|00000a80| 20 0d 0a 20 20 5b 73 6f | 75 72 63 65 5d 2e 46 69 | .. [so|urce].Fi|
|00000a90| 6c 74 65 72 28 66 69 6c | 74 65 72 5f 73 74 72 69 |lter(fil|ter_stri|
|00000aa0| 6e 67 29 0d 0a 0d 0a 20 | 20 69 66 20 28 5b 73 6f |ng).... | if ([so|
|00000ab0| 75 72 63 65 5d 2e 49 73 | 42 4f 46 28 29 20 61 6e |urce].Is|BOF() an|
|00000ac0| 64 20 5b 73 6f 75 72 63 | 65 5d 2e 49 73 45 4f 46 |d [sourc|e].IsEOF|
|00000ad0| 28 29 29 20 74 68 65 6e | 0d 0a 20 20 09 09 20 20 |()) then|.. .. |
|00000ae0| 52 65 73 70 6f 6e 73 65 | 2e 52 65 64 69 72 65 63 |Response|.Redirec|
|00000af0| 74 28 55 52 4c 45 73 63 | 61 70 65 53 70 61 63 65 |t(URLEsc|apeSpace|
|00000b00| 73 28 5b 46 61 69 6c 65 | 64 52 65 64 69 72 65 63 |s([Faile|dRedirec|
|00000b10| 74 5d 29 29 0d 0a 20 20 | 65 6c 73 65 20 20 0d 0a |t])).. |else ..|
|00000b20| 20 20 20 20 53 65 73 73 | 69 6f 6e 28 22 53 65 73 | Sess|ion("Ses|
|00000b30| 73 69 6f 6e 50 61 73 73 | 77 6f 72 64 22 29 3d 63 |sionPass|word")=c|
|00000b40| 53 74 72 28 5b 73 6f 75 | 72 63 65 5d 2e 47 65 74 |Str([sou|rce].Get|
|00000b50| 43 6f 6c 75 6d 6e 56 61 | 6c 75 65 28 5b 41 63 63 |ColumnVa|lue([Acc|
|00000b60| 65 73 73 20 47 72 6f 75 | 70 5d 29 29 0d 0a 20 20 |ess Grou|p])).. |
|00000b70| 20 20 69 66 20 28 74 6f | 66 6f 72 77 61 72 64 3c | if (to|forward<|
|00000b80| 3e 22 22 29 20 74 68 65 | 6e 20 53 65 73 73 69 6f |>"") the|n Sessio|
|00000b90| 6e 28 5b 41 64 64 69 74 | 69 6f 6e 61 6c 52 65 71 |n([Addit|ionalReq|
|00000ba0| 75 65 73 74 54 6f 46 6f | 72 77 61 72 64 5d 29 3d |uestToFo|rward])=|
|00000bb0| 63 73 74 72 28 5b 73 6f | 75 72 63 65 5d 2e 47 65 |cstr([so|urce].Ge|
|00000bc0| 74 43 6f 6c 75 6d 6e 56 | 61 6c 75 65 28 5b 41 64 |tColumnV|alue([Ad|
|00000bd0| 64 69 74 69 6f 6e 61 6c | 52 65 71 75 65 73 74 54 |ditional|RequestT|
|00000be0| 6f 46 6f 72 77 61 72 64 | 5d 29 29 0d 0a 09 20 20 |oForward|]))... |
|00000bf0| 20 52 65 73 70 6f 6e 73 | 65 2e 52 65 64 69 72 65 | Respons|e.Redire|
|00000c00| 63 74 28 55 52 4c 45 73 | 63 61 70 65 53 70 61 63 |ct(URLEs|capeSpac|
|00000c10| 65 73 28 5b 53 75 63 63 | 65 73 73 52 65 64 69 72 |es([Succ|essRedir|
|00000c20| 65 63 74 5d 29 29 0d 0a | 20 20 65 6e 64 20 69 66 |ect]))..| end if|
|00000c30| 0d 0a 65 6c 73 65 0d 0a | 52 65 73 70 6f 6e 73 65 |..else..|Response|
|00000c40| 2e 57 72 69 74 65 28 22 | 3c 53 43 52 49 50 54 3e |.Write("|<SCRIPT>|
|00000c50| 20 4c 6f 67 6f 6e 50 61 | 67 65 4e 61 6d 65 3d 27 | LogonPa|geName='|
|00000c60| 22 2b 52 65 71 75 65 73 | 74 2e 53 65 72 76 65 72 |"+Reques|t.Server|
|00000c70| 56 61 72 69 61 62 6c 65 | 73 28 22 53 43 52 49 50 |Variable|s("SCRIP|
|00000c80| 54 5f 4e 41 4d 45 22 29 | 2b 22 27 3b 3c 2f 53 43 |T_NAME")|+"';</SC|
|00000c90| 52 49 50 54 3e 22 29 0d | 0a 65 6e 64 20 69 66 0c |RIPT>").|.end if.|
|00000ca0| 80 01 00 00 00 06 74 61 | 72 67 65 74 01 00 0e 80 |......ta|rget....|
|00000cb0| 03 00 00 00 00 00 00 00 | 07 6f 6e 43 6c 69 63 6b |........|.onClick|
|00000cc0| 01 00 08 80 04 00 00 00 | 07 6f 6e 43 6c 69 63 6b |........|.onClick|
|00000cd0| 02 00 00 00 00 00 00 00 | 00 01 00 00 00 00 0c 80 |........|........|
|00000ce0| 01 00 00 00 07 70 61 73 | 73 62 6f 78 01 00 0e 80 |.....pas|sbox....|
|00000cf0| 03 00 00 00 01 00 00 00 | 09 67 65 74 54 65 78 74 |........|.getText|
|00000d00| 28 29 00 00 0c 80 01 00 | 00 00 07 75 73 65 72 62 |()......|...userb|
|00000d10| 6f 78 01 00 0e 80 03 00 | 00 00 01 00 00 00 09 67 |ox......|.......g|
|00000d20| 65 74 54 65 78 74 28 29 | 00 00 0c 80 01 00 00 00 |etText()|........|
|00000d30| 04 66 6f 72 6d 01 00 0e | 80 03 00 00 00 00 00 00 |.form...|........|
|00000d40| 00 08 6f 6e 53 75 62 6d | 69 74 00 00 06 00 05 80 |..onSubm|it......|
|00000d50| 05 00 00 00 0e 55 73 65 | 72 4e 61 6d 65 43 6f 6c |.....Use|rNameCol|
|00000d60| 75 6d 6e 04 00 00 00 08 | 00 00 00 00 00 00 00 01 |umn.....|........|
|00000d70| 00 00 00 06 73 6f 75 72 | 63 65 00 00 00 00 05 80 |....sour|ce......|
|00000d80| 05 00 00 00 0e 50 61 73 | 73 77 6f 72 64 43 6f 6c |.....Pas|swordCol|
|00000d90| 75 6d 6e 04 00 00 00 08 | 00 00 00 00 00 00 00 01 |umn.....|........|
|00000da0| 00 00 00 06 73 6f 75 72 | 63 65 00 00 00 00 05 80 |....sour|ce......|
|00000db0| 05 00 00 00 0e 46 61 69 | 6c 65 64 52 65 64 69 72 |.....Fai|ledRedir|
|00000dc0| 65 63 74 06 00 00 00 03 | 00 01 00 00 00 00 00 00 |ect.....|........|
|00000dd0| 00 00 00 00 00 00 00 00 | 05 80 05 00 00 00 0f 53 |........|.......S|
|00000de0| 75 63 63 65 73 73 52 65 | 64 69 72 65 63 74 06 00 |uccessRe|direct..|
|00000df0| 00 00 03 00 01 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000e00| 00 00 00 05 80 05 00 00 | 00 0c 41 63 63 65 73 73 |........|..Access|
|00000e10| 20 47 72 6f 75 70 04 00 | 00 00 08 00 00 00 00 00 | Group..|........|
|00000e20| 00 00 01 00 00 00 06 73 | 6f 75 72 63 65 00 00 00 |.......s|ource...|
|00000e30| 00 05 80 05 00 00 00 1a | 41 64 64 69 74 69 6f 6e |........|Addition|
|00000e40| 61 6c 52 65 71 75 65 73 | 74 54 6f 46 6f 72 77 61 |alReques|tToForwa|
|00000e50| 72 64 04 00 00 00 08 00 | 00 00 00 00 00 00 01 00 |rd......|........|
|00000e60| 00 00 06 73 6f 75 72 63 | 65 00 00 00 00 08 53 65 |...sourc|e.....Se|
|00000e70| 63 75 72 69 74 79 01 00 | e0 5a 9c 93 23 83 d2 11 |curity..|.Z..#...|
|00000e80| 80 52 00 10 4b d3 38 d1 | 00 00 00 00 03 00 00 00 |.R..K.8.|........|
|00000e90| 01 00 00 00 03 00 08 80 | 04 00 00 00 06 6f 6e 4c |........|.....onL|
|00000ea0| 6f 61 64 01 00 00 00 00 | 00 00 00 00 08 80 04 00 |oad.....|........|
|00000eb0| 00 00 06 53 65 72 76 65 | 72 01 00 00 00 00 00 00 |...Serve|r.......|
|00000ec0| 00 00 08 80 04 00 00 00 | 06 6f 6e 42 6c 75 72 01 |........|.onBlur.|
|00000ed0| 00 00 00 00 00 00 00 00 | 32 52 07 50 a4 43 d2 11 |........|2R.P.C..|
|00000ee0| 99 b2 00 60 08 e0 86 fe | 01 00 00 00 24 33 37 37 |...`....|....$377|
|00000ef0| 41 43 34 33 30 2d 36 32 | 31 31 2d 31 31 44 32 2d |AC430-62|11-11D2-|
|00000f00| 38 31 31 37 2d 30 30 36 | 30 30 38 43 38 36 43 32 |8117-006|008C86C2|
|00000f10| 35 03 33 2e 30 ff 5b 05 | 44 65 73 63 72 69 70 74 |5.3.0.[.|Descript|
|00000f20| 69 6f 6e 3a 0d 0a 41 6c | 6c 6f 77 73 20 53 65 73 |ion:..Al|lows Ses|
|00000f30| 73 69 6f 6e 2d 62 61 73 | 65 64 20 73 65 63 75 72 |sion-bas|ed secur|
|00000f40| 69 74 79 20 77 68 65 72 | 65 20 61 20 75 73 65 72 |ity wher|e a user|
|00000f50| 20 69 6e 70 75 74 73 20 | 61 20 75 73 65 72 6e 61 | inputs |a userna|
|00000f60| 6d 65 20 61 6e 64 20 70 | 61 73 73 77 6f 72 64 2c |me and p|assword,|
|00000f70| 20 61 6e 64 20 74 68 65 | 79 20 61 72 65 20 63 6f | and the|y are co|
|00000f80| 6d 70 61 72 65 64 20 61 | 67 61 69 6e 73 74 20 61 |mpared a|gainst a|
|00000f90| 20 64 61 74 61 62 61 73 | 65 2e 20 20 49 66 20 74 | databas|e. If t|
|00000fa0| 68 65 20 75 73 65 72 20 | 69 73 20 72 65 67 69 73 |he user |is regis|
|00000fb0| 74 65 72 65 64 20 69 6e | 20 74 68 65 20 64 61 74 |tered in| the dat|
|00000fc0| 61 62 61 73 65 20 61 20 | 53 65 73 73 69 6f 6e 20 |abase a |Session |
|00000fd0| 76 61 72 69 61 62 6c 65 | 20 69 73 20 63 72 65 61 |variable| is crea|
|00000fe0| 74 65 64 20 74 68 61 74 | 20 69 73 20 65 71 75 61 |ted that| is equa|
|00000ff0| 6c 20 74 6f 20 74 68 65 | 20 76 61 6c 75 65 20 6f |l to the| value o|
|00001000| 66 20 61 20 64 61 74 61 | 62 61 73 65 20 63 6f 6c |f a data|base col|
|00001010| 75 6d 6e 20 74 68 61 74 | 20 63 6f 6e 74 61 69 6e |umn that| contain|
|00001020| 73 20 61 63 63 65 73 73 | 20 70 72 69 76 69 6c 61 |s access| privila|
|00001030| 67 65 73 20 66 6f 72 20 | 74 68 61 74 20 75 73 65 |ges for |that use|
|00001040| 72 2e 20 20 59 6f 75 20 | 63 61 6e 20 74 68 65 6e |r. You |can then|
|00001050| 20 72 65 73 74 72 69 63 | 74 20 61 63 63 65 73 73 | restric|t access|
|00001060| 20 74 6f 20 70 61 67 65 | 73 20 6f 6e 20 79 6f 75 | to page|s on you|
|00001070| 72 20 73 69 74 65 20 62 | 61 73 65 64 20 75 70 6f |r site b|ased upo|
|00001080| 6e 20 74 68 61 74 20 53 | 65 73 73 69 6f 6e 20 76 |n that S|ession v|
|00001090| 61 72 69 61 62 6c 65 2e | 0d 0a 0d 0a 50 61 72 61 |ariable.|....Para|
|000010a0| 6d 65 74 65 72 73 3a 0d | 0a 41 63 63 65 73 73 20 |meters:.|.Access |
|000010b0| 47 72 6f 75 70 20 2d 20 | 63 6f 6c 75 6d 6e 20 69 |Group - |column i|
|000010c0| 6e 20 64 61 74 61 62 61 | 73 65 20 74 68 61 74 20 |n databa|se that |
|000010d0| 63 6f 6e 74 61 69 6e 73 | 20 74 68 65 20 75 73 65 |contains| the use|
|000010e0| 72 20 61 63 63 65 73 73 | 20 63 6f 64 65 20 6f 72 |r access| code or|
|000010f0| 20 6e 61 6d 65 0d 0a 0d | 0a 41 64 64 69 74 69 6f | name...|.Additio|
|00001100| 6e 61 6c 52 65 71 75 65 | 73 74 54 6f 46 6f 72 77 |nalReque|stToForw|
|00001110| 61 72 64 20 2d 20 28 6f | 70 74 69 6f 6e 61 6c 29 |ard - (o|ptional)|
|00001120| 20 66 69 65 6c 64 20 66 | 72 6f 6d 20 64 61 74 61 | field f|rom data|
|00001130| 62 61 73 65 20 77 68 6f | 27 73 20 76 61 6c 75 65 |base who|'s value|
|00001140| 20 77 69 6c 6c 20 62 65 | 20 20 20 20 73 74 6f 72 | will be| stor|
|00001150| 65 64 20 61 73 20 61 20 | 73 65 73 73 69 6f 6e 20 |ed as a |session |
|00001160| 76 61 72 69 61 62 6c 65 | 20 77 69 74 68 20 61 20 |variable| with a |
|00001170| 6e 61 6d 65 20 74 68 61 | 74 20 69 73 20 69 64 65 |name tha|t is ide|
|00001180| 6e 74 69 63 61 6c 20 74 | 6f 20 74 68 65 20 66 69 |ntical t|o the fi|
|00001190| 65 6c 64 20 6e 61 6d 65 | 2e 20 20 20 20 20 54 68 |eld name|. Th|
|000011a0| 69 73 20 63 61 6e 20 74 | 68 65 6e 20 62 65 20 75 |is can t|hen be u|
|000011b0| 73 65 64 20 74 6f 20 66 | 69 6c 74 65 72 20 74 68 |sed to f|ilter th|
|000011c0| 65 20 72 65 63 6f 72 64 | 73 65 74 20 6f 6e 20 70 |e record|set on p|
|000011d0| 72 65 63 65 65 64 69 6e | 67 20 70 61 67 65 73 20 |receedin|g pages |
|000011e0| 66 6f 72 20 20 20 20 61 | 64 64 69 74 69 6f 6e 61 |for a|dditiona|
|000011f0| 6c 20 73 65 63 75 72 69 | 74 79 2e 0d 0a 0d 0a 53 |l securi|ty.....S|
|00001200| 75 63 63 65 73 73 52 65 | 64 69 72 65 63 74 20 2d |uccessRe|direct -|
|00001210| 20 50 61 67 65 20 74 6f | 20 72 65 64 69 72 65 63 | Page to| redirec|
|00001220| 74 20 74 6f 20 69 66 20 | 74 68 65 20 75 73 65 72 |t to if |the user|
|00001230| 20 69 73 20 69 6e 20 74 | 68 65 20 64 61 74 61 62 | is in t|he datab|
|00001240| 61 73 65 0d 0a 46 61 69 | 6c 65 64 52 65 64 69 72 |ase..Fai|ledRedir|
|00001250| 65 63 74 20 2d 20 50 61 | 67 65 20 74 6f 20 72 65 |ect - Pa|ge to re|
|00001260| 64 69 72 65 63 74 20 74 | 6f 20 69 66 20 74 68 65 |direct t|o if the|
|00001270| 20 75 73 65 72 6e 61 6d | 65 20 61 6e 64 20 70 61 | usernam|e and pa|
|00001280| 73 73 77 6f 72 64 20 61 | 72 65 20 69 6e 76 61 6c |ssword a|re inval|
|00001290| 69 64 0d 0a 0d 0a 55 73 | 65 72 4e 61 6d 65 43 6f |id....Us|erNameCo|
|000012a0| 6c 75 6d 6e 20 2d 20 43 | 6f 6c 75 6d 6e 20 69 6e |lumn - C|olumn in|
|000012b0| 20 74 68 65 20 64 61 74 | 61 62 61 73 65 20 74 68 | the dat|abase th|
|000012c0| 61 74 20 63 6f 6e 74 61 | 69 6e 73 20 74 68 65 20 |at conta|ins the |
|000012d0| 75 73 65 72 20 6e 61 6d | 65 0d 0a 0d 0a 50 61 73 |user nam|e....Pas|
|000012e0| 73 77 6f 72 64 43 6f 6c | 75 6d 6e 20 2d 20 43 6f |swordCol|umn - Co|
|000012f0| 6c 75 6d 6e 20 69 6e 20 | 74 68 65 20 64 61 74 61 |lumn in |the data|
|00001300| 62 61 73 65 20 74 68 61 | 74 20 63 6f 6e 74 61 69 |base tha|t contai|
|00001310| 6e 73 20 74 68 65 20 70 | 61 73 73 77 6f 72 64 0d |ns the p|assword.|
|00001320| 0a 0d 0a 54 79 70 69 63 | 61 6c 20 50 61 72 74 69 |...Typic|al Parti|
|00001330| 63 69 70 61 6e 74 73 3a | 0d 0a 5b 73 6f 75 72 63 |cipants:|..[sourc|
|00001340| 65 5d 20 2d 20 72 65 63 | 6f 72 64 73 65 74 0d 0a |e] - rec|ordset..|
|00001350| 5b 74 61 72 67 65 74 5d | 20 2d 20 62 75 74 74 6f |[target]| - butto|
|00001360| 6e 2c 20 69 6d 61 67 65 | 2c 20 6f 72 20 61 6e 79 |n, image|, or any|
|00001370| 20 63 6c 69 63 6b 61 62 | 6c 65 20 6f 62 6a 65 63 | clickab|le objec|
|00001380| 74 0d 0a 5b 70 61 73 73 | 62 6f 78 5d 20 2d 20 65 |t..[pass|box] - e|
|00001390| 64 69 74 20 62 6f 78 0d | 0a 5b 75 73 65 72 62 6f |dit box.|.[userbo|
|000013a0| 78 5d 20 2d 20 65 64 69 | 74 20 62 6f 78 0d 0a 5b |x] - edi|t box..[|
|000013b0| 66 6f 72 6d 5d 20 2d 20 | 66 6f 72 6d 20 66 72 6f |form] - |form fro|
|000013c0| 6d 20 62 61 73 65 6d 65 | 6e 74 0d 0a 0d 0a 46 6f |m baseme|nt....Fo|
|000013d0| 72 20 6d 6f 72 65 20 69 | 6e 66 6f 72 6d 61 74 69 |r more i|nformati|
|000013e0| 6f 6e 20 6f 6e 20 63 6f | 6e 74 72 61 63 74 73 20 |on on co|ntracts |
|000013f0| 6f 66 20 74 68 69 73 20 | 63 61 74 65 67 6f 72 79 |of this |category|
|00001400| 2c 20 70 6c 65 61 73 65 | 20 72 65 66 65 72 20 74 |, please| refer t|
|00001410| 6f 0d 0a 53 65 63 75 72 | 69 74 79 2e 64 6f 63 0d |o..Secur|ity.doc.|
|00001420| 0a 54 68 69 73 20 66 69 | 6c 65 20 69 73 20 61 76 |.This fi|le is av|
|00001430| 61 69 6c 61 62 6c 65 20 | 69 6e 20 74 68 65 20 43 |ailable |in the C|
|00001440| 6f 6e 74 72 61 63 74 73 | 20 66 6f 6c 64 65 72 20 |ontracts| folder |
|00001450| 69 6e 20 74 68 65 20 44 | 72 75 6d 62 65 61 74 20 |in the D|rumbeat |
|00001460| 64 69 72 65 63 74 6f 72 | 79 2e 0d 0a 56 31 30 5f |director|y...V10_|
|00001470| 33 30 2e 03 80 12 00 00 | 00 00 00 00 00 00 3f 52 |30......|......?R|
|00001480| 65 64 69 72 65 63 74 20 | 69 66 20 75 73 65 72 20 |edirect |if user |
|00001490| 64 6f 65 73 20 6e 6f 74 | 20 68 61 76 65 20 70 65 |does not| have pe|
|000014a0| 72 6d 69 73 73 69 6f 6e | 20 62 61 73 65 64 20 6f |rmission| based o|
|000014b0| 6e 20 61 63 63 65 73 73 | 20 67 72 6f 75 70 00 00 |n access| group..|
|000014c0| 02 00 05 80 05 00 00 00 | 0e 41 6c 6c 6f 77 65 64 |........|.Allowed|
|000014d0| 20 47 72 6f 75 70 73 00 | 00 00 00 08 00 00 00 00 | Groups.|........|
|000014e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 05 80 05 00 |........|........|
|000014f0| 00 00 0f 46 61 69 6c 65 | 64 20 52 65 64 69 72 65 |...Faile|d Redire|
|00001500| 63 74 06 00 00 00 03 00 | 01 00 00 00 00 00 00 00 |ct......|........|
|00001510| 00 00 00 00 00 00 00 08 | 53 65 63 75 72 69 74 79 |........|Security|
|00001520| 01 00 e0 5a 9c 93 23 83 | d2 11 80 52 00 10 4b d3 |...Z..#.|...R..K.|
|00001530| 38 d1 00 00 00 00 03 00 | 00 00 01 00 00 00 03 00 |8.......|........|
|00001540| 08 80 04 00 00 00 08 6f | 6e 55 6e 4c 6f 61 64 01 |.......o|nUnLoad.|
|00001550| 00 00 00 00 00 00 00 00 | 08 80 04 00 00 00 06 53 |........|.......S|
|00001560| 65 72 76 65 72 02 00 00 | 00 00 00 00 00 ff ab 01 |erver...|........|
|00001570| 73 65 73 73 69 6f 6e 67 | 72 6f 75 70 3d 5b 41 6c |sessiong|roup=[Al|
|00001580| 6c 6f 77 65 64 20 47 72 | 6f 75 70 73 5d 3b 0d 0a |lowed Gr|oups];..|
|00001590| 73 65 73 73 69 6f 6e 67 | 72 6f 75 70 3d 73 65 73 |sessiong|roup=ses|
|000015a0| 73 69 6f 6e 67 72 6f 75 | 70 2e 73 70 6c 69 74 28 |siongrou|p.split(|
|000015b0| 22 2c 22 29 3b 0d 0a 6c | 6f 6f 70 6c 65 6e 67 74 |",");..l|ooplengt|
|000015c0| 68 3d 30 3b 0d 0a 76 61 | 6c 69 64 3d 66 61 6c 73 |h=0;..va|lid=fals|
|000015d0| 65 3b 0d 0a 0d 0a 77 68 | 69 6c 65 20 28 73 65 73 |e;....wh|ile (ses|
|000015e0| 73 69 6f 6e 67 72 6f 75 | 70 2e 6c 65 6e 67 74 68 |siongrou|p.length|
|000015f0| 3e 6c 6f 6f 70 6c 65 6e | 67 74 68 20 26 26 20 76 |>looplen|gth && v|
|00001600| 61 6c 69 64 3d 3d 66 61 | 6c 73 65 29 20 20 7b 0d |alid==fa|lse) {.|
|00001610| 0a 20 20 53 65 73 73 69 | 6f 6e 56 61 6c 75 65 3d |. Sessi|onValue=|
|00001620| 73 65 73 73 69 6f 6e 67 | 72 6f 75 70 5b 6c 6f 6f |sessiong|roup[loo|
|00001630| 70 6c 65 6e 67 74 68 5d | 0d 0a 20 0d 0a 20 20 69 |plength]|.. .. i|
|00001640| 66 20 28 53 65 73 73 69 | 6f 6e 28 22 53 65 73 73 |f (Sessi|on("Sess|
|00001650| 69 6f 6e 50 61 73 73 77 | 6f 72 64 22 29 29 20 7b |ionPassw|ord")) {|
|00001660| 0d 0a 0d 0a 20 20 20 20 | 69 66 20 28 53 65 73 73 |.... |if (Sess|
|00001670| 69 6f 6e 28 22 53 65 73 | 73 69 6f 6e 50 61 73 73 |ion("Ses|sionPass|
|00001680| 77 6f 72 64 22 29 3d 3d | 53 65 73 73 69 6f 6e 56 |word")==|SessionV|
|00001690| 61 6c 75 65 29 20 7b 0d | 0a 20 20 20 20 20 20 76 |alue) {.|. v|
|000016a0| 61 6c 69 64 3d 74 72 75 | 65 3b 0d 0a 20 20 20 20 |alid=tru|e;.. |
|000016b0| 20 20 7d 0d 0a 20 20 20 | 20 7d 0d 0a 20 20 6c 6f | }.. | }.. lo|
|000016c0| 6f 70 6c 65 6e 67 74 68 | 2b 2b 3b 0d 0a 20 20 7d |oplength|++;.. }|
|000016d0| 0d 0a 69 66 20 28 76 61 | 6c 69 64 20 3d 3d 20 66 |..if (va|lid == f|
|000016e0| 61 6c 73 65 29 20 20 7b | 0d 0a 20 20 52 65 73 70 |alse) {|.. Resp|
|000016f0| 6f 6e 73 65 2e 52 65 64 | 69 72 65 63 74 28 65 73 |onse.Red|irect(es|
|00001700| 63 61 70 65 28 5b 46 61 | 69 6c 65 64 20 52 65 64 |cape([Fa|iled Red|
|00001710| 69 72 65 63 74 5d 29 29 | 0d 0a 7d 01 00 00 00 ff |irect]))|..}.....|
|00001720| d0 01 73 65 73 73 69 6f | 6e 67 72 6f 75 70 3d 5b |..sessio|ngroup=[|
|00001730| 41 6c 6c 6f 77 65 64 20 | 47 72 6f 75 70 73 5d 0d |Allowed |Groups].|
|00001740| 0a 73 65 73 73 69 6f 6e | 67 72 6f 75 70 3d 73 70 |.session|group=sp|
|00001750| 6c 69 74 28 73 65 73 73 | 69 6f 6e 67 72 6f 75 70 |lit(sess|iongroup|
|00001760| 2c 20 22 2c 22 29 0d 0a | 6c 6f 6f 70 6c 65 6e 67 |, ",")..|loopleng|
|00001770| 74 68 3d 30 0d 0a 76 61 | 6c 69 64 3d 66 61 6c 73 |th=0..va|lid=fals|
|00001780| 65 0d 0a 0d 0a 77 68 69 | 6c 65 20 28 55 62 6f 75 |e....whi|le (Ubou|
|00001790| 6e 64 28 73 65 73 73 69 | 6f 6e 67 72 6f 75 70 29 |nd(sessi|ongroup)|
|000017a0| 3e 3d 6c 6f 6f 70 6c 65 | 6e 67 74 68 20 61 6e 64 |>=loople|ngth and|
|000017b0| 20 76 61 6c 69 64 3d 66 | 61 6c 73 65 29 20 20 0d | valid=f|alse) .|
|000017c0| 0a 20 20 53 65 73 73 69 | 6f 6e 56 61 6c 75 65 3d |. Sessi|onValue=|
|000017d0| 73 65 73 73 69 6f 6e 67 | 72 6f 75 70 28 6c 6f 6f |sessiong|roup(loo|
|000017e0| 70 6c 65 6e 67 74 68 29 | 0d 0a 20 0d 0a 20 20 69 |plength)|.. .. i|
|000017f0| 66 20 28 53 65 73 73 69 | 6f 6e 28 22 53 65 73 73 |f (Sessi|on("Sess|
|00001800| 69 6f 6e 50 61 73 73 77 | 6f 72 64 22 29 3c 3e 22 |ionPassw|ord")<>"|
|00001810| 22 29 20 74 68 65 6e 0d | 0a 20 20 20 20 69 66 20 |") then.|. if |
|00001820| 28 63 73 74 72 28 53 65 | 73 73 69 6f 6e 28 22 53 |(cstr(Se|ssion("S|
|00001830| 65 73 73 69 6f 6e 50 61 | 73 73 77 6f 72 64 22 29 |essionPa|ssword")|
|00001840| 29 3d 53 65 73 73 69 6f | 6e 56 61 6c 75 65 29 20 |)=Sessio|nValue) |
|00001850| 74 68 65 6e 0d 0a 20 20 | 20 20 20 20 76 61 6c 69 |then.. | vali|
|00001860| 64 3d 74 72 75 65 0d 0a | 20 20 20 20 20 20 65 6e |d=true..| en|
|00001870| 64 20 69 66 0d 0a 20 20 | 20 20 65 6e 64 20 69 66 |d if.. | end if|
|00001880| 0d 0a 20 20 6c 6f 6f 70 | 6c 65 6e 67 74 68 3d 6c |.. loop|length=l|
|00001890| 6f 6f 70 6c 65 6e 67 74 | 68 2b 31 0d 0a 20 20 57 |ooplengt|h+1.. W|
|000018a0| 65 6e 64 0d 0a 69 66 20 | 28 76 61 6c 69 64 20 3d |end..if |(valid =|
|000018b0| 20 66 61 6c 73 65 29 20 | 74 68 65 6e 20 52 65 73 | false) |then Res|
|000018c0| 70 6f 6e 73 65 2e 52 65 | 64 69 72 65 63 74 28 55 |ponse.Re|direct(U|
|000018d0| 52 4c 45 73 63 61 70 65 | 53 70 61 63 65 73 28 5b |RLEscape|Spaces([|
|000018e0| 46 61 69 6c 65 64 20 52 | 65 64 69 72 65 63 74 5d |Failed R|edirect]|
|000018f0| 29 29 08 80 04 00 00 00 | 06 6f 6e 42 6c 75 72 01 |))......|.onBlur.|
|00001900| 00 00 00 00 00 00 00 00 | 33 52 07 50 a4 43 d2 11 |........|3R.P.C..|
|00001910| 99 b2 00 60 08 e0 86 fe | 01 00 00 00 24 33 37 37 |...`....|....$377|
|00001920| 41 43 34 33 30 2d 36 32 | 31 31 2d 31 31 44 32 2d |AC430-62|11-11D2-|
|00001930| 38 31 31 37 2d 30 30 36 | 30 30 38 43 38 36 43 32 |8117-006|008C86C2|
|00001940| 35 03 33 2e 30 ff c7 01 | 44 65 73 63 72 69 70 74 |5.3.0...|Descript|
|00001950| 69 6f 6e 3a 0d 0a 52 65 | 64 69 72 65 63 74 73 20 |ion:..Re|directs |
|00001960| 74 68 65 20 75 73 65 72 | 20 69 66 20 74 68 65 20 |the user| if the |
|00001970| 41 63 63 65 73 73 20 47 | 72 6f 75 70 20 73 65 73 |Access G|roup ses|
|00001980| 73 69 6f 6e 20 76 61 72 | 69 61 62 6c 65 20 64 6f |sion var|iable do|
|00001990| 65 73 20 6e 6f 74 20 6d | 61 74 63 68 20 74 68 65 |es not m|atch the|
|000019a0| 20 6f 6e 65 20 73 65 74 | 20 75 70 20 62 79 20 74 | one set| up by t|
|000019b0| 68 65 20 73 65 63 75 72 | 69 74 79 20 6c 6f 67 6f |he secur|ity logo|
|000019c0| 6e 20 70 61 67 65 20 70 | 72 65 76 69 6f 75 73 6c |n page p|reviousl|
|000019d0| 79 2e 0d 0a 0d 0a 50 61 | 72 61 6d 65 74 65 72 73 |y.....Pa|rameters|
|000019e0| 3a 0d 0a 41 63 63 65 73 | 73 20 47 72 6f 75 70 20 |:..Acces|s Group |
|000019f0| 2d 20 47 72 6f 75 70 73 | 20 74 68 61 74 20 73 68 |- Groups| that sh|
|00001a00| 6f 75 6c 64 20 68 61 76 | 65 20 61 63 63 65 73 73 |ould hav|e access|
|00001a10| 20 74 6f 20 74 68 65 20 | 70 61 67 65 2c 20 63 6f | to the |page, co|
|00001a20| 6d 6d 61 20 73 65 70 61 | 72 61 74 65 64 20 20 66 |mma sepa|rated f|
|00001a30| 6f 72 20 6d 6f 72 65 20 | 74 68 61 6e 20 6f 6e 65 |or more |than one|
|00001a40| 20 67 72 6f 75 70 2e 0d | 0a 0d 0a 54 79 70 69 63 | group..|...Typic|
|00001a50| 61 6c 20 50 61 72 74 69 | 63 69 70 61 6e 74 73 3a |al Parti|cipants:|
|00001a60| 0d 0a 6e 6f 6e 65 0d 0a | 0d 0a 46 6f 72 20 6d 6f |..none..|..For mo|
|00001a70| 72 65 20 69 6e 66 6f 72 | 6d 61 74 69 6f 6e 20 6f |re infor|mation o|
|00001a80| 6e 20 63 6f 6e 74 72 61 | 63 74 73 20 6f 66 20 74 |n contra|cts of t|
|00001a90| 68 69 73 20 63 61 74 65 | 67 6f 72 79 2c 20 70 6c |his cate|gory, pl|
|00001aa0| 65 61 73 65 20 72 65 66 | 65 72 20 74 6f 0d 0a 53 |ease ref|er to..S|
|00001ab0| 65 63 75 72 69 74 79 2e | 64 6f 63 0d 0a 54 68 69 |ecurity.|doc..Thi|
|00001ac0| 73 20 66 69 6c 65 20 69 | 73 20 61 76 61 69 6c 61 |s file i|s availa|
|00001ad0| 62 6c 65 20 69 6e 20 74 | 68 65 20 43 6f 6e 74 72 |ble in t|he Contr|
|00001ae0| 61 63 74 73 20 66 6f 6c | 64 65 72 20 69 6e 20 74 |acts fol|der in t|
|00001af0| 68 65 20 44 72 75 6d 62 | 65 61 74 20 64 69 72 65 |he Drumb|eat dire|
|00001b00| 63 74 6f 72 79 2e 0d 0a | 56 31 30 5f 33 30 2e 03 |ctory...|V10_30..|
|00001b10| 80 12 00 00 00 6d 56 65 | 72 69 66 79 20 75 73 65 |.....mVe|rify use|
|00001b20| 72 6e 61 6d 65 20 66 72 | 6f 6d 20 5b 75 73 65 72 |rname fr|om [user|
|00001b30| 62 6f 78 5d 20 61 6e 64 | 20 70 61 73 73 77 6f 72 |box] and| passwor|
|00001b40| 64 20 66 72 6f 6d 20 5b | 70 61 73 73 62 6f 78 5d |d from [|passbox]|
|00001b50| 20 61 6e 64 20 72 65 64 | 69 72 65 63 74 20 28 73 | and red|irect (s|
|00001b60| 74 6f 72 65 20 61 64 64 | 69 74 69 6f 6e 61 6c 20 |tore add|itional |
|00001b70| 72 65 71 75 65 73 74 20 | 69 6e 20 53 65 73 73 69 |request |in Sessi|
|00001b80| 6f 6e 29 00 00 00 00 39 | 56 65 72 69 66 79 20 75 |on)....9|Verify u|
|00001b90| 73 65 72 6e 61 6d 65 20 | 61 6e 64 20 70 61 73 73 |sername |and pass|
|00001ba0| 77 6f 72 64 20 66 72 6f | 6d 20 66 6f 72 6d 20 69 |word fro|m form i|
|00001bb0| 6e 70 75 74 20 61 6e 64 | 20 72 65 64 69 72 65 63 |nput and| redirec|
|00001bc0| 74 05 00 0c 80 01 00 00 | 00 06 73 6f 75 72 63 65 |t.......|..source|
|00001bd0| 02 00 0e 80 03 00 00 00 | 00 00 00 00 08 53 65 72 |........|.....Ser|
|00001be0| 76 65 72 28 29 0e 80 03 | 00 00 00 01 00 00 00 14 |ver()...|........|
|00001bf0| 47 65 74 43 6f 6c 75 6d | 6e 56 61 6c 75 65 28 6e |GetColum|nValue(n|
|00001c00| 61 6d 65 29 01 00 08 80 | 04 00 00 00 08 53 65 72 |ame)....|.....Ser|
|00001c10| 76 65 72 28 29 02 00 00 | 00 00 00 00 00 ff 8a 02 |ver()...|........|
|00001c20| 69 66 20 28 52 65 71 75 | 65 73 74 2e 46 6f 72 6d |if (Requ|est.Form|
|00001c30| 2e 4b 65 79 28 22 5b 74 | 61 72 67 65 74 5d 22 29 |.Key("[t|arget]")|
|00001c40| 20 21 3d 20 22 22 29 20 | 20 7b 0d 0a 20 20 76 61 | != "") | {.. va|
|00001c50| 72 20 66 69 6c 74 65 72 | 5f 73 74 72 69 6e 67 20 |r filter|_string |
|00001c60| 3d 20 5b 55 73 65 72 4e | 61 6d 65 43 6f 6c 75 6d |= [UserN|ameColum|
|00001c70| 6e 5d 20 2b 20 22 3d 20 | 27 22 20 2b 20 53 74 72 |n] + "= |'" + Str|
|00001c80| 69 6e 67 28 52 65 71 75 | 65 73 74 28 22 5b 75 73 |ing(Requ|est("[us|
|00001c90| 65 72 62 6f 78 5d 22 29 | 29 20 2b 20 22 27 20 41 |erbox]")|) + "' A|
|00001ca0| 4e 44 20 22 20 2b 20 5b | 50 61 73 73 77 6f 72 64 |ND " + [|Password|
|00001cb0| 43 6f 6c 75 6d 6e 5d 20 | 2b 20 22 20 3d 20 27 22 |Column] |+ " = '"|
|00001cc0| 20 2b 20 53 74 72 69 6e | 67 28 52 65 71 75 65 73 | + Strin|g(Reques|
|00001cd0| 74 28 22 5b 70 61 73 73 | 62 6f 78 5d 22 29 29 20 |t("[pass|box]")) |
|00001ce0| 2b 20 22 27 22 3b 0d 0a | 20 20 76 61 72 20 74 6f |+ "'";..| var to|
|00001cf0| 66 6f 72 77 61 72 64 20 | 3d 20 5b 41 64 64 69 74 |forward |= [Addit|
|00001d00| 69 6f 6e 61 6c 52 65 71 | 75 65 73 74 54 6f 46 6f |ionalReq|uestToFo|
|00001d10| 72 77 61 72 64 5d 0d 0a | 20 20 0d 0a 20 20 5b 73 |rward]..| .. [s|
|00001d20| 6f 75 72 63 65 5d 2e 46 | 69 6c 74 65 72 28 66 69 |ource].F|ilter(fi|
|00001d30| 6c 74 65 72 5f 73 74 72 | 69 6e 67 29 3b 0d 0a 0d |lter_str|ing);...|
|00001d40| 0a 20 20 69 66 20 28 5b | 73 6f 75 72 63 65 5d 2e |. if ([|source].|
|00001d50| 49 73 42 4f 46 28 29 20 | 26 26 20 5b 73 6f 75 72 |IsBOF() |&& [sour|
|00001d60| 63 65 5d 2e 49 73 45 4f | 46 28 29 29 0d 0a 20 20 |ce].IsEO|F()).. |
|00001d70| 20 20 7b 0d 0a 20 20 09 | 09 20 20 52 65 73 70 6f | {.. .|. Respo|
|00001d80| 6e 73 65 2e 52 65 64 69 | 72 65 63 74 28 65 73 63 |nse.Redi|rect(esc|
|00001d90| 61 70 65 28 5b 46 61 69 | 6c 65 64 52 65 64 69 72 |ape([Fai|ledRedir|
|00001da0| 65 63 74 5d 29 29 3b 0d | 0a 20 20 20 20 7d 0d 0a |ect]));.|. }..|
|00001db0| 20 20 65 6c 73 65 20 20 | 7b 0d 0a 20 0d 0a 20 20 | else |{.. .. |
|00001dc0| 20 20 53 65 73 73 69 6f | 6e 28 22 53 65 73 73 69 | Sessio|n("Sessi|
|00001dd0| 6f 6e 50 61 73 73 77 6f | 72 64 22 29 3d 5b 41 63 |onPasswo|rd")=[Ac|
|00001de0| 63 65 73 73 20 47 72 6f | 75 70 5d 3b 0d 0a 20 20 |cess Gro|up];.. |
|00001df0| 20 20 69 66 20 28 74 6f | 66 6f 72 77 61 72 64 21 | if (to|forward!|
|00001e00| 3d 22 22 29 0d 0a 20 20 | 20 20 20 20 53 65 73 73 |="").. | Sess|
|00001e10| 69 6f 6e 28 5b 41 64 64 | 69 74 69 6f 6e 61 6c 52 |ion([Add|itionalR|
|00001e20| 65 71 75 65 73 74 54 6f | 46 6f 72 77 61 72 64 5d |equestTo|Forward]|
|00001e30| 29 3d 53 74 72 69 6e 67 | 28 5b 73 6f 75 72 63 65 |)=String|([source|
|00001e40| 5d 2e 47 65 74 43 6f 6c | 75 6d 6e 56 61 6c 75 65 |].GetCol|umnValue|
|00001e50| 28 5b 41 64 64 69 74 69 | 6f 6e 61 6c 52 65 71 75 |([Additi|onalRequ|
|00001e60| 65 73 74 54 6f 46 6f 72 | 77 61 72 64 5d 29 29 0d |estToFor|ward])).|
|00001e70| 0a 09 20 20 20 52 65 73 | 70 6f 6e 73 65 2e 52 65 |.. Res|ponse.Re|
|00001e80| 64 69 72 65 63 74 28 65 | 73 63 61 70 65 28 5b 53 |direct(e|scape([S|
|00001e90| 75 63 63 65 73 73 52 65 | 64 69 72 65 63 74 5d 29 |uccessRe|direct])|
|00001ea0| 29 3b 0d 0a 20 20 7d 0d | 0a 7d 01 00 00 00 ff 88 |);.. }.|.}......|
|00001eb0| 02 69 66 20 28 52 65 71 | 75 65 73 74 2e 46 6f 72 |.if (Req|uest.For|
|00001ec0| 6d 2e 4b 65 79 28 22 5b | 74 61 72 67 65 74 5d 22 |m.Key("[|target]"|
|00001ed0| 29 20 3c 3e 20 22 22 29 | 20 20 74 68 65 6e 0d 0a |) <> "")| then..|
|00001ee0| 20 20 66 69 6c 74 65 72 | 5f 73 74 72 69 6e 67 20 | filter|_string |
|00001ef0| 3d 20 5b 55 73 65 72 4e | 61 6d 65 43 6f 6c 75 6d |= [UserN|ameColum|
|00001f00| 6e 5d 20 2b 20 22 3d 20 | 27 22 20 2b 20 63 53 74 |n] + "= |'" + cSt|
|00001f10| 72 28 52 65 71 75 65 73 | 74 28 22 5b 75 73 65 72 |r(Reques|t("[user|
|00001f20| 62 6f 78 5d 22 29 29 20 | 2b 20 22 27 20 41 4e 44 |box]")) |+ "' AND|
|00001f30| 20 22 20 2b 20 5b 50 61 | 73 73 77 6f 72 64 43 6f | " + [Pa|sswordCo|
|00001f40| 6c 75 6d 6e 5d 20 2b 20 | 22 20 3d 20 27 22 20 2b |lumn] + |" = '" +|
|00001f50| 20 63 53 74 72 28 52 65 | 71 75 65 73 74 28 22 5b | cStr(Re|quest("[|
|00001f60| 70 61 73 73 62 6f 78 5d | 22 29 29 20 2b 20 22 27 |passbox]|")) + "'|
|00001f70| 22 0d 0a 20 20 74 6f 66 | 6f 72 77 61 72 64 20 3d |".. tof|orward =|
|00001f80| 20 5b 41 64 64 69 74 69 | 6f 6e 61 6c 52 65 71 75 | [Additi|onalRequ|
|00001f90| 65 73 74 54 6f 46 6f 72 | 77 61 72 64 5d 0d 0a 20 |estToFor|ward].. |
|00001fa0| 20 0d 0a 20 20 5b 73 6f | 75 72 63 65 5d 2e 46 69 | .. [so|urce].Fi|
|00001fb0| 6c 74 65 72 28 66 69 6c | 74 65 72 5f 73 74 72 69 |lter(fil|ter_stri|
|00001fc0| 6e 67 29 0d 0a 0d 0a 20 | 20 69 66 20 28 5b 73 6f |ng).... | if ([so|
|00001fd0| 75 72 63 65 5d 2e 49 73 | 42 4f 46 28 29 20 61 6e |urce].Is|BOF() an|
|00001fe0| 64 20 5b 73 6f 75 72 63 | 65 5d 2e 49 73 45 4f 46 |d [sourc|e].IsEOF|
|00001ff0| 28 29 29 20 74 68 65 6e | 0d 0a 20 20 09 09 20 20 |()) then|.. .. |
|00002000| 52 65 73 70 6f 6e 73 65 | 2e 52 65 64 69 72 65 63 |Response|.Redirec|
|00002010| 74 28 55 52 4c 45 73 63 | 61 70 65 53 70 61 63 65 |t(URLEsc|apeSpace|
|00002020| 73 28 5b 46 61 69 6c 65 | 64 52 65 64 69 72 65 63 |s([Faile|dRedirec|
|00002030| 74 5d 29 29 0d 0a 20 20 | 65 6c 73 65 20 20 0d 0a |t])).. |else ..|
|00002040| 20 20 20 20 53 65 73 73 | 69 6f 6e 28 22 53 65 73 | Sess|ion("Ses|
|00002050| 73 69 6f 6e 50 61 73 73 | 77 6f 72 64 22 29 3d 5b |sionPass|word")=[|
|00002060| 41 63 63 65 73 73 20 47 | 72 6f 75 70 5d 0d 0a 20 |Access G|roup].. |
|00002070| 20 20 20 69 66 20 28 74 | 6f 66 6f 72 77 61 72 64 | if (t|oforward|
|00002080| 3c 3e 22 22 29 20 74 68 | 65 6e 20 53 65 73 73 69 |<>"") th|en Sessi|
|00002090| 6f 6e 28 5b 41 64 64 69 | 74 69 6f 6e 61 6c 52 65 |on([Addi|tionalRe|
|000020a0| 71 75 65 73 74 54 6f 46 | 6f 72 77 61 72 64 5d 29 |questToF|orward])|
|000020b0| 3d 63 73 74 72 28 5b 73 | 6f 75 72 63 65 5d 2e 47 |=cstr([s|ource].G|
|000020c0| 65 74 43 6f 6c 75 6d 6e | 56 61 6c 75 65 28 5b 41 |etColumn|Value([A|
|000020d0| 64 64 69 74 69 6f 6e 61 | 6c 52 65 71 75 65 73 74 |dditiona|lRequest|
|000020e0| 54 6f 46 6f 72 77 61 72 | 64 5d 29 29 0d 0a 09 20 |ToForwar|d]))... |
|000020f0| 20 20 52 65 73 70 6f 6e | 73 65 2e 52 65 64 69 72 | Respon|se.Redir|
|00002100| 65 63 74 28 55 52 4c 45 | 73 63 61 70 65 53 70 61 |ect(URLE|scapeSpa|
|00002110| 63 65 73 28 5b 53 75 63 | 63 65 73 73 52 65 64 69 |ces([Suc|cessRedi|
|00002120| 72 65 63 74 5d 29 29 0d | 0a 20 20 65 6e 64 20 69 |rect])).|. end i|
|00002130| 66 0d 0a 65 6e 64 20 69 | 66 0c 80 01 00 00 00 06 |f..end i|f.......|
|00002140| 74 61 72 67 65 74 01 00 | 0e 80 03 00 00 00 00 00 |target..|........|
|00002150| 00 00 07 6f 6e 43 6c 69 | 63 6b 01 00 08 80 04 00 |...onCli|ck......|
|00002160| 00 00 07 6f 6e 43 6c 69 | 63 6b 02 00 00 00 00 00 |...onCli|ck......|
|00002170| 00 00 00 01 00 00 00 00 | 0c 80 01 00 00 00 07 70 |........|.......p|
|00002180| 61 73 73 62 6f 78 01 00 | 0e 80 03 00 00 00 01 00 |assbox..|........|
|00002190| 00 00 09 67 65 74 54 65 | 78 74 28 29 00 00 0c 80 |...getTe|xt()....|
|000021a0| 01 00 00 00 07 75 73 65 | 72 62 6f 78 01 00 0e 80 |.....use|rbox....|
|000021b0| 03 00 00 00 01 00 00 00 | 09 67 65 74 54 65 78 74 |........|.getText|
|000021c0| 28 29 00 00 0c 80 01 00 | 00 00 04 66 6f 72 6d 01 |()......|...form.|
|000021d0| 00 0e 80 03 00 00 00 00 | 00 00 00 08 6f 6e 53 75 |........|....onSu|
|000021e0| 62 6d 69 74 00 00 06 00 | 05 80 05 00 00 00 0e 55 |bmit....|.......U|
|000021f0| 73 65 72 4e 61 6d 65 43 | 6f 6c 75 6d 6e 04 00 00 |serNameC|olumn...|
|00002200| 00 08 00 00 00 00 00 00 | 00 01 00 00 00 06 73 6f |........|......so|
|00002210| 75 72 63 65 00 00 00 00 | 05 80 05 00 00 00 0e 50 |urce....|.......P|
|00002220| 61 73 73 77 6f 72 64 43 | 6f 6c 75 6d 6e 04 00 00 |asswordC|olumn...|
|00002230| 00 08 00 00 00 00 00 00 | 00 01 00 00 00 06 73 6f |........|......so|
|00002240| 75 72 63 65 00 00 00 00 | 05 80 05 00 00 00 0e 46 |urce....|.......F|
|00002250| 61 69 6c 65 64 52 65 64 | 69 72 65 63 74 06 00 00 |ailedRed|irect...|
|00002260| 00 03 00 01 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002270| 00 00 05 80 05 00 00 00 | 0f 53 75 63 63 65 73 73 |........|.Success|
|00002280| 52 65 64 69 72 65 63 74 | 06 00 00 00 03 00 01 00 |Redirect|........|
|00002290| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 05 80 05 |........|........|
|000022a0| 00 00 00 1a 41 64 64 69 | 74 69 6f 6e 61 6c 52 65 |....Addi|tionalRe|
|000022b0| 71 75 65 73 74 54 6f 46 | 6f 72 77 61 72 64 04 00 |questToF|orward..|
|000022c0| 00 00 08 00 00 00 00 00 | 00 00 01 00 00 00 06 73 |........|.......s|
|000022d0| 6f 75 72 63 65 00 00 00 | 00 05 80 05 00 00 00 0c |ource...|........|
|000022e0| 41 63 63 65 73 73 20 47 | 72 6f 75 70 00 00 00 00 |Access G|roup....|
|000022f0| 08 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002300| 00 08 53 65 63 75 72 69 | 74 79 01 00 e0 5a 9c 93 |..Securi|ty...Z..|
|00002310| 23 83 d2 11 80 52 00 10 | 4b d3 38 d1 00 00 00 00 |#....R..|K.8.....|
|00002320| 03 00 00 00 01 00 00 00 | 03 00 08 80 04 00 00 00 |........|........|
|00002330| 06 6f 6e 4c 6f 61 64 01 | 00 00 00 00 00 00 00 00 |.onLoad.|........|
|00002340| 08 80 04 00 00 00 06 53 | 65 72 76 65 72 01 00 00 |.......S|erver...|
|00002350| 00 00 00 00 00 00 08 80 | 04 00 00 00 06 6f 6e 42 |........|.....onB|
|00002360| 6c 75 72 01 00 00 00 00 | 00 00 00 00 f2 6b fe dc |lur.....|.....k..|
|00002370| f6 56 d2 11 80 57 00 60 | 08 d0 5a 6a 01 00 00 00 |.V...W.`|..Zj....|
|00002380| 24 33 37 37 41 43 34 33 | 30 2d 36 32 31 31 2d 31 |$377AC43|0-6211-1|
|00002390| 31 44 32 2d 38 31 31 37 | 2d 30 30 36 30 30 38 43 |1D2-8117|-006008C|
|000023a0| 38 36 43 32 35 03 33 2e | 30 ff c4 05 44 65 73 63 |86C25.3.|0...Desc|
|000023b0| 72 69 70 74 69 6f 6e 3a | 0d 0a 41 6c 6c 6f 77 73 |ription:|..Allows|
|000023c0| 20 53 65 73 73 69 6f 6e | 2d 62 61 73 65 64 20 73 | Session|-based s|
|000023d0| 65 63 75 72 69 74 79 20 | 77 68 65 72 65 20 61 20 |ecurity |where a |
|000023e0| 75 73 65 72 20 69 6e 70 | 75 74 73 20 61 20 75 73 |user inp|uts a us|
|000023f0| 65 72 6e 61 6d 65 20 61 | 6e 64 20 70 61 73 73 77 |ername a|nd passw|
|00002400| 6f 72 64 2c 20 61 6e 64 | 20 74 68 65 79 20 61 72 |ord, and| they ar|
|00002410| 65 20 63 6f 6d 70 61 72 | 65 64 20 61 67 61 69 6e |e compar|ed again|
|00002420| 73 74 20 61 20 64 61 74 | 61 62 61 73 65 2e 20 20 |st a dat|abase. |
|00002430| 49 66 20 74 68 65 20 75 | 73 65 72 20 69 73 20 72 |If the u|ser is r|
|00002440| 65 67 69 73 74 65 72 65 | 64 20 69 6e 20 74 68 65 |egistere|d in the|
|00002450| 20 64 61 74 61 62 61 73 | 65 20 61 20 53 65 73 73 | databas|e a Sess|
|00002460| 69 6f 6e 20 76 61 72 69 | 61 62 6c 65 20 69 73 20 |ion vari|able is |
|00002470| 63 72 65 61 74 65 64 20 | 74 68 61 74 20 69 73 20 |created |that is |
|00002480| 65 71 75 61 6c 20 74 6f | 20 74 68 65 20 76 61 6c |equal to| the val|
|00002490| 75 65 20 6f 66 20 61 20 | 64 61 74 61 62 61 73 65 |ue of a |database|
|000024a0| 20 63 6f 6c 75 6d 6e 20 | 74 68 61 74 20 63 6f 6e | column |that con|
|000024b0| 74 61 69 6e 73 20 61 63 | 63 65 73 73 20 70 72 69 |tains ac|cess pri|
|000024c0| 76 69 6c 61 67 65 73 20 | 66 6f 72 20 74 68 61 74 |vilages |for that|
|000024d0| 20 75 73 65 72 2e 20 20 | 59 6f 75 20 63 61 6e 20 | user. |You can |
|000024e0| 74 68 65 6e 20 72 65 73 | 74 72 69 63 74 20 61 63 |then res|trict ac|
|000024f0| 63 65 73 73 20 74 6f 20 | 70 61 67 65 73 20 6f 6e |cess to |pages on|
|00002500| 20 79 6f 75 72 20 73 69 | 74 65 20 62 61 73 65 64 | your si|te based|
|00002510| 20 75 70 6f 6e 20 74 68 | 61 74 20 53 65 73 73 69 | upon th|at Sessi|
|00002520| 6f 6e 20 76 61 72 69 61 | 62 6c 65 2e 0d 0a 0d 0a |on varia|ble.....|
|00002530| 50 61 72 61 6d 65 74 65 | 72 73 3a 0d 0a 41 63 63 |Paramete|rs:..Acc|
|00002540| 65 73 73 20 47 72 6f 75 | 70 20 2d 20 54 68 65 20 |ess Grou|p - The |
|00002550| 76 61 6c 75 65 20 6f 66 | 20 74 68 65 20 73 65 73 |value of| the ses|
|00002560| 73 69 6f 6e 20 76 61 72 | 69 61 62 6c 65 20 77 68 |sion var|iable wh|
|00002570| 69 63 68 20 69 73 20 73 | 74 6f 72 65 64 20 69 66 |ich is s|tored if|
|00002580| 20 74 68 65 20 75 73 65 | 72 20 69 73 20 20 20 20 | the use|r is |
|00002590| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|000025a0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|000025b0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|000025c0| 20 20 20 20 20 20 20 20 | 72 65 67 69 73 74 65 72 | |register|
|000025d0| 65 64 0d 0a 0d 0a 41 64 | 64 69 74 69 6f 6e 61 6c |ed....Ad|ditional|
|000025e0| 52 65 71 75 65 73 74 54 | 6f 46 6f 72 77 61 72 64 |RequestT|oForward|
|000025f0| 20 2d 20 28 6f 70 74 69 | 6f 6e 61 6c 29 20 66 69 | - (opti|onal) fi|
|00002600| 65 6c 64 20 66 72 6f 6d | 20 64 61 74 61 62 61 73 |eld from| databas|
|00002610| 65 20 77 68 6f 27 73 20 | 76 61 6c 75 65 20 77 69 |e who's |value wi|
|00002620| 6c 6c 20 62 65 20 20 20 | 20 20 20 20 20 20 20 20 |ll be | |
|00002630| 20 73 74 6f 72 65 64 20 | 61 73 20 61 20 73 65 73 | stored |as a ses|
|00002640| 73 69 6f 6e 20 76 61 72 | 69 61 62 6c 65 20 77 69 |sion var|iable wi|
|00002650| 74 68 20 61 20 6e 61 6d | 65 20 74 68 61 74 20 69 |th a nam|e that i|
|00002660| 73 20 69 64 65 6e 74 69 | 63 61 6c 20 74 6f 20 74 |s identi|cal to t|
|00002670| 68 65 20 66 69 65 6c 64 | 20 6e 61 6d 65 2e 20 20 |he field| name. |
|00002680| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 54 68 | | Th|
|00002690| 69 73 20 63 61 6e 20 74 | 68 65 6e 20 62 65 20 75 |is can t|hen be u|
|000026a0| 73 65 64 20 74 6f 20 66 | 69 6c 74 65 72 20 74 68 |sed to f|ilter th|
|000026b0| 65 20 72 65 63 6f 72 64 | 73 65 74 20 6f 6e 20 70 |e record|set on p|
|000026c0| 72 65 63 65 65 64 69 6e | 67 20 70 61 67 65 73 20 |receedin|g pages |
|000026d0| 66 6f 72 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |for | |
|000026e0| 20 20 61 64 64 69 74 69 | 6f 6e 61 6c 20 73 65 63 | additi|onal sec|
|000026f0| 75 72 69 74 79 2e 0d 0a | 0d 0a 53 75 63 63 65 73 |urity...|..Succes|
|00002700| 73 52 65 64 69 72 65 63 | 74 20 2d 20 50 61 67 65 |sRedirec|t - Page|
|00002710| 20 74 6f 20 72 65 64 69 | 72 65 63 74 20 74 6f 20 | to redi|rect to |
|00002720| 69 66 20 74 68 65 20 75 | 73 65 72 20 69 73 20 69 |if the u|ser is i|
|00002730| 6e 20 74 68 65 20 64 61 | 74 61 62 61 73 65 0d 0a |n the da|tabase..|
|00002740| 0d 0a 46 61 69 6c 65 64 | 52 65 64 69 72 65 63 74 |..Failed|Redirect|
|00002750| 20 2d 20 50 61 67 65 20 | 74 6f 20 72 65 64 69 72 | - Page |to redir|
|00002760| 65 63 74 20 74 6f 20 69 | 66 20 74 68 65 20 75 73 |ect to i|f the us|
|00002770| 65 72 6e 61 6d 65 20 61 | 6e 64 20 70 61 73 73 77 |ername a|nd passw|
|00002780| 6f 72 64 20 61 72 65 20 | 69 6e 76 61 6c 69 64 0d |ord are |invalid.|
|00002790| 0a 0d 0a 55 73 65 72 4e | 61 6d 65 43 6f 6c 75 6d |...UserN|ameColum|
|000027a0| 6e 20 2d 20 43 6f 6c 75 | 6d 6e 20 69 6e 20 74 68 |n - Colu|mn in th|
|000027b0| 65 20 64 61 74 61 62 61 | 73 65 20 74 68 61 74 20 |e databa|se that |
|000027c0| 63 6f 6e 74 61 69 6e 73 | 20 74 68 65 20 75 73 65 |contains| the use|
|000027d0| 72 20 6e 61 6d 65 0d 0a | 0d 0a 50 61 73 73 77 6f |r name..|..Passwo|
|000027e0| 72 64 43 6f 6c 75 6d 6e | 20 2d 20 43 6f 6c 75 6d |rdColumn| - Colum|
|000027f0| 6e 20 69 6e 20 74 68 65 | 20 64 61 74 61 62 61 73 |n in the| databas|
|00002800| 65 20 74 68 61 74 20 63 | 6f 6e 74 61 69 6e 73 20 |e that c|ontains |
|00002810| 74 68 65 20 70 61 73 73 | 77 6f 72 64 0d 0a 0d 0a |the pass|word....|
|00002820| 54 79 70 69 63 61 6c 20 | 50 61 72 74 69 63 69 70 |Typical |Particip|
|00002830| 61 6e 74 73 3a 0d 0a 5b | 73 6f 75 72 63 65 5d 20 |ants:..[|source] |
|00002840| 2d 20 72 65 63 6f 72 64 | 73 65 74 0d 0a 5b 74 61 |- record|set..[ta|
|00002850| 72 67 65 74 5d 20 2d 20 | 62 75 74 74 6f 6e 2c 20 |rget] - |button, |
|00002860| 69 6d 61 67 65 2c 20 6f | 72 20 61 6e 79 20 63 6c |image, o|r any cl|
|00002870| 69 63 6b 61 62 6c 65 20 | 6f 62 6a 65 63 74 0d 0a |ickable |object..|
|00002880| 5b 70 61 73 73 62 6f 78 | 5d 20 2d 20 65 64 69 74 |[passbox|] - edit|
|00002890| 20 62 6f 78 0d 0a 5b 75 | 73 65 72 62 6f 78 5d 20 | box..[u|serbox] |
|000028a0| 2d 20 65 64 69 74 20 62 | 6f 78 0d 0a 5b 66 6f 72 |- edit b|ox..[for|
|000028b0| 6d 5d 20 2d 20 66 6f 72 | 6d 20 66 72 6f 6d 20 62 |m] - for|m from b|
|000028c0| 61 73 65 6d 65 6e 74 0d | 0a 0d 0a 46 6f 72 20 6d |asement.|...For m|
|000028d0| 6f 72 65 20 69 6e 66 6f | 72 6d 61 74 69 6f 6e 20 |ore info|rmation |
|000028e0| 6f 6e 20 63 6f 6e 74 72 | 61 63 74 73 20 6f 66 20 |on contr|acts of |
|000028f0| 74 68 69 73 20 63 61 74 | 65 67 6f 72 79 2c 20 70 |this cat|egory, p|
|00002900| 6c 65 61 73 65 20 72 65 | 66 65 72 20 74 6f 0d 0a |lease re|fer to..|
|00002910| 53 65 63 75 72 69 74 79 | 2e 64 6f 63 0d 0a 54 68 |Security|.doc..Th|
|00002920| 69 73 20 66 69 6c 65 20 | 69 73 20 61 76 61 69 6c |is file |is avail|
|00002930| 61 62 6c 65 20 69 6e 20 | 74 68 65 20 43 6f 6e 74 |able in |the Cont|
|00002940| 72 61 63 74 73 20 66 6f | 6c 64 65 72 20 69 6e 20 |racts fo|lder in |
|00002950| 74 68 65 20 44 72 75 6d | 62 65 61 74 20 64 69 72 |the Drum|beat dir|
|00002960| 65 63 74 6f 72 79 2e 0d | 0a 56 31 30 5f 33 30 2e |ectory..|.V10_30.|
|00002970| 03 80 12 00 00 00 52 55 | 70 64 61 74 65 20 5b 75 |......RU|pdate [u|
|00002980| 73 65 72 6e 61 6d 65 5d | 20 61 6e 64 20 5b 70 61 |sername]| and [pa|
|00002990| 73 73 77 6f 72 64 5d 20 | 69 6e 74 6f 20 5b 73 6f |ssword] |into [so|
|000029a0| 75 72 63 65 5d 20 69 66 | 20 5b 75 73 65 72 6e 61 |urce] if| [userna|
|000029b0| 6d 65 5d 20 69 73 20 75 | 6e 69 71 75 65 20 69 6e |me] is u|nique in|
|000029c0| 20 5b 73 6f 75 72 63 65 | 5d 00 00 00 00 00 05 00 | [source|].......|
|000029d0| 0c 80 01 00 00 00 06 73 | 6f 75 72 63 65 02 00 0e |.......s|ource...|
|000029e0| 80 03 00 00 00 00 00 00 | 00 08 53 65 72 76 65 72 |........|..Server|
|000029f0| 28 29 0e 80 03 00 00 00 | 01 00 00 00 14 47 65 74 |()......|.....Get|
|00002a00| 43 6f 6c 75 6d 6e 56 61 | 6c 75 65 28 6e 61 6d 65 |ColumnVa|lue(name|
|00002a10| 29 01 00 08 80 04 00 00 | 00 08 53 65 72 76 65 72 |).......|..Server|
|00002a20| 28 29 02 00 00 00 00 00 | 00 00 ff 4d 03 76 61 72 |()......|...M.var|
|00002a30| 20 6e 61 6d 65 70 61 73 | 73 65 64 20 3d 20 66 61 | namepas|sed = fa|
|00002a40| 6c 73 65 3b 0d 0a 69 66 | 20 28 53 74 72 69 6e 67 |lse;..if| (String|
|00002a50| 28 53 65 73 73 69 6f 6e | 28 22 4b 65 79 56 61 6c |(Session|("KeyVal|
|00002a60| 75 65 22 29 29 3d 3d 22 | 75 6e 64 65 66 69 6e 65 |ue"))=="|undefine|
|00002a70| 64 22 29 0d 0a 20 20 20 | 20 53 65 73 73 69 6f 6e |d").. | Session|
|00002a80| 28 22 4b 65 79 56 61 6c | 75 65 22 29 3d 53 74 72 |("KeyVal|ue")=Str|
|00002a90| 69 6e 67 28 5b 73 6f 75 | 72 63 65 5d 2e 52 53 2e |ing([sou|rce].RS.|
|00002aa0| 46 69 65 6c 64 73 28 5b | 55 6e 69 71 75 65 4b 65 |Fields([|UniqueKe|
|00002ab0| 79 5d 29 2e 76 61 6c 75 | 65 29 0d 0a 69 66 20 28 |y]).valu|e)..if (|
|00002ac0| 52 65 71 75 65 73 74 2e | 46 6f 72 6d 2e 4b 65 79 |Request.|Form.Key|
|00002ad0| 28 22 5b 74 61 72 67 65 | 74 5d 22 29 20 21 3d 20 |("[targe|t]") != |
|00002ae0| 22 22 29 20 20 7b 0d 0a | 20 20 76 61 72 20 66 69 |"") {..| var fi|
|00002af0| 6c 74 65 72 5f 73 74 72 | 69 6e 67 20 3d 20 5b 55 |lter_str|ing = [U|
|00002b00| 73 65 72 4e 61 6d 65 43 | 6f 6c 75 6d 6e 5d 20 2b |serNameC|olumn] +|
|00002b10| 20 22 3d 20 27 22 20 2b | 20 53 74 72 69 6e 67 28 | "= '" +| String(|
|00002b20| 52 65 71 75 65 73 74 28 | 22 5b 75 73 65 72 6e 61 |Request(|"[userna|
|00002b30| 6d 65 5d 22 29 29 20 2b | 20 22 27 22 3b 0d 0a 20 |me]")) +| "'";.. |
|00002b40| 20 5b 73 6f 75 72 63 65 | 5d 2e 52 53 2e 46 69 6c | [source|].RS.Fil|
|00002b50| 74 65 72 3d 66 69 6c 74 | 65 72 5f 73 74 72 69 6e |ter=filt|er_strin|
|00002b60| 67 0d 0a 20 20 69 66 20 | 28 5b 73 6f 75 72 63 65 |g.. if |([source|
|00002b70| 5d 2e 49 73 42 4f 46 28 | 29 20 26 26 20 5b 73 6f |].IsBOF(|) && [so|
|00002b80| 75 72 63 65 5d 2e 49 73 | 45 4f 46 28 29 29 0d 0a |urce].Is|EOF())..|
|00002b90| 20 20 20 20 6e 61 6d 65 | 70 61 73 73 65 64 20 3d | name|passed =|
|00002ba0| 20 74 72 75 65 3b 0d 0a | 20 20 69 66 20 28 6e 61 | true;..| if (na|
|00002bb0| 6d 65 70 61 73 73 65 64 | 29 0d 0a 20 20 20 20 7b |mepassed|).. {|
|00002bc0| 0d 0a 20 20 20 20 20 20 | 5b 73 6f 75 72 63 65 5d |.. |[source]|
|00002bd0| 2e 52 53 2e 46 69 6c 74 | 65 72 3d 20 5b 55 6e 69 |.RS.Filt|er= [Uni|
|00002be0| 71 75 65 4b 65 79 5d 20 | 2b 20 22 3d 20 27 22 20 |queKey] |+ "= '" |
|00002bf0| 2b 20 53 74 72 69 6e 67 | 28 53 65 73 73 69 6f 6e |+ String|(Session|
|00002c00| 28 22 4b 65 79 56 61 6c | 75 65 22 29 29 20 2b 20 |("KeyVal|ue")) + |
|00002c10| 22 27 22 3b 0d 0a 20 20 | 20 20 20 20 5b 73 6f 75 |"'";.. | [sou|
|00002c20| 72 63 65 5d 2e 52 53 2e | 46 69 65 6c 64 73 28 5b |rce].RS.|Fields([|
|00002c30| 50 61 73 73 77 6f 72 64 | 43 6f 6c 75 6d 6e 5d 29 |Password|Column])|
|00002c40| 20 3d 20 53 74 72 69 6e | 67 28 52 65 71 75 65 73 | = Strin|g(Reques|
|00002c50| 74 28 22 5b 70 61 73 73 | 77 6f 72 64 5d 22 29 29 |t("[pass|word]"))|
|00002c60| 3b 0d 0a 20 20 20 20 20 | 20 5b 73 6f 75 72 63 65 |;.. | [source|
|00002c70| 5d 2e 52 53 2e 46 69 65 | 6c 64 73 28 5b 55 73 65 |].RS.Fie|lds([Use|
|00002c80| 72 4e 61 6d 65 43 6f 6c | 75 6d 6e 5d 29 20 3d 20 |rNameCol|umn]) = |
|00002c90| 53 74 72 69 6e 67 28 52 | 65 71 75 65 73 74 28 22 |String(R|equest("|
|00002ca0| 5b 75 73 65 72 6e 61 6d | 65 5d 22 29 29 3b 0d 0a |[usernam|e]"));..|
|00002cb0| 20 20 20 20 20 20 5b 73 | 6f 75 72 63 65 5d 2e 52 | [s|ource].R|
|00002cc0| 53 2e 55 70 64 61 74 65 | 28 29 3b 0d 0a 20 20 09 |S.Update|();.. .|
|00002cd0| 09 20 20 52 65 73 70 6f | 6e 73 65 2e 52 65 64 69 |. Respo|nse.Redi|
|00002ce0| 72 65 63 74 28 65 73 63 | 61 70 65 28 5b 53 75 63 |rect(esc|ape([Suc|
|00002cf0| 63 65 73 73 52 65 64 69 | 72 65 63 74 5d 29 29 3b |cessRedi|rect]));|
|00002d00| 0d 0a 20 20 20 20 7d 0d | 0a 20 20 20 65 6c 73 65 |.. }.|. else|
|00002d10| 7b 0d 0a 20 20 20 20 20 | 20 52 65 73 70 6f 6e 73 |{.. | Respons|
|00002d20| 65 2e 52 65 64 69 72 65 | 63 74 28 65 73 63 61 70 |e.Redire|ct(escap|
|00002d30| 65 28 5b 46 61 69 6c 65 | 64 52 65 64 69 72 65 63 |e([Faile|dRedirec|
|00002d40| 74 5d 29 2b 22 3f 22 2b | 20 5b 46 61 69 6c 65 64 |t])+"?"+| [Failed|
|00002d50| 52 65 71 75 65 73 74 5d | 20 2b 22 3d 22 2b 65 73 |Request]| +"="+es|
|00002d60| 63 61 70 65 28 6e 61 6d | 65 70 61 73 73 65 64 29 |cape(nam|epassed)|
|00002d70| 29 0d 0a 20 20 20 7d 0d | 0a 7d 01 00 00 00 ff 19 |).. }.|.}......|
|00002d80| 03 69 66 20 28 63 73 74 | 72 28 53 65 73 73 69 6f |.if (cst|r(Sessio|
|00002d90| 6e 28 22 4b 65 79 56 61 | 6c 75 65 22 29 29 3d 22 |n("KeyVa|lue"))="|
|00002da0| 22 29 20 74 68 65 6e 20 | 53 65 73 73 69 6f 6e 28 |") then |Session(|
|00002db0| 22 4b 65 79 56 61 6c 75 | 65 22 29 3d 63 73 74 72 |"KeyValu|e")=cstr|
|00002dc0| 28 5b 73 6f 75 72 63 65 | 5d 2e 52 53 2e 46 69 65 |([source|].RS.Fie|
|00002dd0| 6c 64 73 28 5b 55 6e 69 | 71 75 65 4b 65 79 5d 29 |lds([Uni|queKey])|
|00002de0| 2e 76 61 6c 75 65 29 0d | 0a 69 66 20 28 52 65 71 |.value).|.if (Req|
|00002df0| 75 65 73 74 2e 46 6f 72 | 6d 2e 4b 65 79 28 22 5b |uest.For|m.Key("[|
|00002e00| 74 61 72 67 65 74 5d 22 | 29 20 3c 3e 20 22 22 29 |target]"|) <> "")|
|00002e10| 20 74 68 65 6e 0d 0a 20 | 20 66 69 6c 74 65 72 5f | then.. | filter_|
|00002e20| 73 74 72 69 6e 67 20 3d | 20 5b 55 73 65 72 4e 61 |string =| [UserNa|
|00002e30| 6d 65 43 6f 6c 75 6d 6e | 5d 20 2b 20 22 3d 20 27 |meColumn|] + "= '|
|00002e40| 22 20 2b 20 63 73 74 72 | 28 52 65 71 75 65 73 74 |" + cstr|(Request|
|00002e50| 28 22 5b 75 73 65 72 6e | 61 6d 65 5d 22 29 29 20 |("[usern|ame]")) |
|00002e60| 2b 20 22 27 22 0d 0a 20 | 20 5b 73 6f 75 72 63 65 |+ "'".. | [source|
|00002e70| 5d 2e 52 53 2e 46 69 6c | 74 65 72 3d 66 69 6c 74 |].RS.Fil|ter=filt|
|00002e80| 65 72 5f 73 74 72 69 6e | 67 0d 0a 20 20 69 66 20 |er_strin|g.. if |
|00002e90| 28 5b 73 6f 75 72 63 65 | 5d 2e 49 73 42 4f 46 28 |([source|].IsBOF(|
|00002ea0| 29 20 61 6e 64 20 5b 73 | 6f 75 72 63 65 5d 2e 49 |) and [s|ource].I|
|00002eb0| 73 45 4f 46 28 29 29 20 | 74 68 65 6e 20 6e 61 6d |sEOF()) |then nam|
|00002ec0| 65 70 61 73 73 65 64 20 | 3d 20 31 0d 0a 20 20 69 |epassed |= 1.. i|
|00002ed0| 66 20 28 6e 61 6d 65 70 | 61 73 73 65 64 29 20 74 |f (namep|assed) t|
|00002ee0| 68 65 6e 0d 0a 20 20 20 | 20 20 20 5b 73 6f 75 72 |hen.. | [sour|
|00002ef0| 63 65 5d 2e 52 53 2e 46 | 69 6c 74 65 72 3d 20 5b |ce].RS.F|ilter= [|
|00002f00| 55 6e 69 71 75 65 4b 65 | 79 5d 20 2b 20 22 3d 20 |UniqueKe|y] + "= |
|00002f10| 27 22 20 2b 20 63 73 74 | 72 28 53 65 73 73 69 6f |'" + cst|r(Sessio|
|00002f20| 6e 28 22 4b 65 79 56 61 | 6c 75 65 22 29 29 20 2b |n("KeyVa|lue")) +|
|00002f30| 20 22 27 22 0d 0a 20 20 | 20 20 20 20 5b 73 6f 75 | "'".. | [sou|
|00002f40| 72 63 65 5d 2e 52 53 2e | 46 69 65 6c 64 73 28 5b |rce].RS.|Fields([|
|00002f50| 50 61 73 73 77 6f 72 64 | 43 6f 6c 75 6d 6e 5d 29 |Password|Column])|
|00002f60| 20 3d 20 63 73 74 72 28 | 52 65 71 75 65 73 74 28 | = cstr(|Request(|
|00002f70| 22 5b 70 61 73 73 77 6f | 72 64 5d 22 29 29 0d 0a |"[passwo|rd]"))..|
|00002f80| 20 20 20 20 20 20 5b 73 | 6f 75 72 63 65 5d 2e 52 | [s|ource].R|
|00002f90| 53 2e 46 69 65 6c 64 73 | 28 5b 55 73 65 72 4e 61 |S.Fields|([UserNa|
|00002fa0| 6d 65 43 6f 6c 75 6d 6e | 5d 29 20 3d 20 63 73 74 |meColumn|]) = cst|
|00002fb0| 72 28 52 65 71 75 65 73 | 74 28 22 5b 75 73 65 72 |r(Reques|t("[user|
|00002fc0| 6e 61 6d 65 5d 22 29 29 | 0d 0a 20 20 20 20 20 20 |name]"))|.. |
|00002fd0| 5b 73 6f 75 72 63 65 5d | 2e 52 53 2e 55 70 64 61 |[source]|.RS.Upda|
|00002fe0| 74 65 28 29 0d 0a 20 20 | 09 09 20 20 52 65 73 70 |te().. |.. Resp|
|00002ff0| 6f 6e 73 65 2e 52 65 64 | 69 72 65 63 74 28 55 52 |onse.Red|irect(UR|
|00003000| 4c 45 73 63 61 70 65 53 | 70 61 63 65 73 28 5b 53 |LEscapeS|paces([S|
|00003010| 75 63 63 65 73 73 52 65 | 64 69 72 65 63 74 5d 29 |uccessRe|direct])|
|00003020| 29 0d 0a 20 20 20 65 6c | 73 65 20 52 65 73 70 6f |).. el|se Respo|
|00003030| 6e 73 65 2e 52 65 64 69 | 72 65 63 74 28 55 52 4c |nse.Redi|rect(URL|
|00003040| 45 73 63 61 70 65 53 70 | 61 63 65 73 28 5b 46 61 |EscapeSp|aces([Fa|
|00003050| 69 6c 65 64 52 65 64 69 | 72 65 63 74 5d 29 2b 22 |iledRedi|rect])+"|
|00003060| 3f 22 2b 20 5b 46 61 69 | 6c 65 64 52 65 71 75 65 |?"+ [Fai|ledReque|
|00003070| 73 74 5d 20 2b 22 3d 22 | 2b 63 73 74 72 28 6e 61 |st] +"="|+cstr(na|
|00003080| 6d 65 70 61 73 73 65 64 | 29 29 0d 0a 65 6e 64 20 |mepassed|))..end |
|00003090| 69 66 0d 0a 65 6e 64 20 | 69 66 0c 80 01 00 00 00 |if..end |if......|
|000030a0| 06 74 61 72 67 65 74 01 | 00 0e 80 03 00 00 00 00 |.target.|........|
|000030b0| 00 00 00 07 6f 6e 43 6c | 69 63 6b 01 00 08 80 04 |....onCl|ick.....|
|000030c0| 00 00 00 07 6f 6e 43 6c | 69 63 6b 02 00 00 00 00 |....onCl|ick.....|
|000030d0| 00 00 00 00 01 00 00 00 | 00 0c 80 01 00 00 00 08 |........|........|
|000030e0| 75 73 65 72 6e 61 6d 65 | 01 00 0e 80 03 00 00 00 |username|........|
|000030f0| 01 00 00 00 09 67 65 74 | 54 65 78 74 28 29 00 00 |.....get|Text()..|
|00003100| 0c 80 01 00 00 00 08 70 | 61 73 73 77 6f 72 64 01 |.......p|assword.|
|00003110| 00 0e 80 03 00 00 00 01 | 00 00 00 09 67 65 74 54 |........|....getT|
|00003120| 65 78 74 28 29 00 00 0c | 80 01 00 00 00 04 66 6f |ext()...|......fo|
|00003130| 72 6d 01 00 0e 80 03 00 | 00 00 00 00 00 00 08 6f |rm......|.......o|
|00003140| 6e 53 75 62 6d 69 74 00 | 00 07 00 05 80 05 00 00 |nSubmit.|........|
|00003150| 00 0e 55 73 65 72 4e 61 | 6d 65 43 6f 6c 75 6d 6e |..UserNa|meColumn|
|00003160| 04 00 00 00 08 00 00 00 | 00 00 00 00 01 00 00 00 |........|........|
|00003170| 06 73 6f 75 72 63 65 00 | 00 00 00 05 80 05 00 00 |.source.|........|
|00003180| 00 0e 50 61 73 73 77 6f | 72 64 43 6f 6c 75 6d 6e |..Passwo|rdColumn|
|00003190| 04 00 00 00 08 00 00 00 | 00 00 00 00 01 00 00 00 |........|........|
|000031a0| 06 73 6f 75 72 63 65 00 | 00 00 00 05 80 05 00 00 |.source.|........|
|000031b0| 00 0e 46 61 69 6c 65 64 | 52 65 64 69 72 65 63 74 |..Failed|Redirect|
|000031c0| 06 00 00 00 03 00 01 00 | 00 00 00 00 00 00 00 00 |........|........|
|000031d0| 00 00 00 00 00 05 80 05 | 00 00 00 0f 53 75 63 63 |........|....Succ|
|000031e0| 65 73 73 52 65 64 69 72 | 65 63 74 06 00 00 00 03 |essRedir|ect.....|
|000031f0| 00 01 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003200| 05 80 05 00 00 00 12 50 | 61 73 73 77 6f 72 64 43 |.......P|asswordC|
|00003210| 6f 6e 66 69 72 6d 42 6f | 78 00 00 00 00 08 00 00 |onfirmBo|x.......|
|00003220| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 05 80 |........|........|
|00003230| 05 00 00 00 09 55 6e 69 | 71 75 65 4b 65 79 04 00 |.....Uni|queKey..|
|00003240| 00 00 08 00 00 00 00 00 | 00 00 01 00 00 00 06 73 |........|.......s|
|00003250| 6f 75 72 63 65 00 00 00 | 00 05 80 05 00 00 00 0d |ource...|........|
|00003260| 46 61 69 6c 65 64 52 65 | 71 75 65 73 74 00 00 00 |FailedRe|quest...|
|00003270| 00 08 00 14 00 00 00 6e | 00 61 00 6d 00 65 00 70 |.......n|.a.m.e.p|
|00003280| 00 61 00 73 00 73 00 65 | 00 64 00 00 00 00 00 00 |.a.s.s.e|.d......|
|00003290| 00 00 00 00 00 00 08 53 | 65 63 75 72 69 74 79 01 |.......S|ecurity.|
|000032a0| 00 e0 5a 9c 93 23 83 d2 | 11 80 52 00 10 4b d3 38 |..Z..#..|..R..K.8|
|000032b0| d1 00 00 00 00 03 00 00 | 00 01 00 00 00 03 00 08 |........|........|
|000032c0| 80 04 00 00 00 06 6f 6e | 4c 6f 61 64 01 00 00 00 |......on|Load....|
|000032d0| 00 00 00 00 00 08 80 04 | 00 00 00 06 53 65 72 76 |........|....Serv|
|000032e0| 65 72 02 00 00 00 00 00 | 00 00 2e 76 61 72 20 6e |er......|...var n|
|000032f0| 61 6d 65 70 61 73 73 65 | 64 20 3d 20 66 61 6c 73 |amepasse|d = fals|
|00003300| 65 3b 0d 0a 76 61 72 20 | 70 77 70 61 73 73 65 64 |e;..var |pwpassed|
|00003310| 20 3d 20 66 61 6c 73 65 | 3b 01 00 00 00 3c 64 69 | = false|;....<di|
|00003320| 6d 20 6e 61 6d 65 70 61 | 73 73 65 64 20 0d 0a 64 |m namepa|ssed ..d|
|00003330| 69 6d 20 70 77 70 61 73 | 73 65 64 20 0d 0a 6e 61 |im pwpas|sed ..na|
|00003340| 6d 65 70 61 73 73 65 64 | 20 3d 20 30 0d 0a 70 77 |mepassed| = 0..pw|
|00003350| 70 61 73 73 65 64 20 3d | 20 30 08 80 04 00 00 00 |passed =| 0......|
|00003360| 06 6f 6e 42 6c 75 72 01 | 00 00 00 00 00 00 00 00 |.onBlur.|........|
|00003370| e4 4f a0 16 f9 77 d2 11 | 80 68 00 60 08 d0 5a 6a |.O...w..|.h.`..Zj|
|00003380| 01 00 00 00 24 33 37 37 | 41 43 34 33 30 2d 36 32 |....$377|AC430-62|
|00003390| 31 31 2d 31 31 44 32 2d | 38 31 31 37 2d 30 30 36 |11-11D2-|8117-006|
|000033a0| 30 30 38 43 38 36 43 32 | 35 03 33 2e 30 ff 63 05 |008C86C2|5.3.0.c.|
|000033b0| 44 65 73 63 72 69 70 74 | 69 6f 6e 3a 0d 0a 43 68 |Descript|ion:..Ch|
|000033c0| 65 63 6b 73 20 74 68 65 | 20 64 61 74 61 62 61 73 |ecks the| databas|
|000033d0| 65 20 66 6f 72 20 74 6f | 20 6d 61 6b 65 20 73 75 |e for to| make su|
|000033e0| 72 65 20 74 68 61 74 20 | 75 73 65 72 6e 61 6d 65 |re that |username|
|000033f0| 20 69 73 20 75 6e 69 71 | 75 65 2c 20 61 6e 64 20 | is uniq|ue, and |
|00003400| 75 70 64 61 74 65 73 20 | 74 68 65 20 75 73 65 72 |updates |the user|
|00003410| 6e 61 6d 65 20 61 6e 64 | 20 70 61 73 73 77 6f 72 |name and| passwor|
|00003420| 64 20 69 6e 74 6f 20 74 | 68 65 20 61 63 74 69 76 |d into t|he activ|
|00003430| 65 20 72 65 63 6f 72 64 | 2e 20 20 4f 74 68 65 72 |e record|. Other|
|00003440| 77 69 73 65 20 69 74 20 | 72 65 64 69 72 65 63 74 |wise it |redirect|
|00003450| 73 20 74 6f 20 61 20 66 | 61 69 6c 75 72 65 20 70 |s to a f|ailure p|
|00003460| 61 67 65 2c 20 61 6e 64 | 20 73 65 74 73 20 74 68 |age, and| sets th|
|00003470| 65 20 66 61 69 6c 65 64 | 20 72 65 71 75 65 73 74 |e failed| request|
|00003480| 20 76 61 72 69 61 62 6c | 65 20 74 6f 20 66 61 6c | variabl|e to fal|
|00003490| 73 65 2e 20 20 0d 0a 0d | 0a 50 61 72 61 6d 65 74 |se. ...|.Paramet|
|000034a0| 65 72 73 3a 0d 0a 46 61 | 69 6c 65 64 52 65 71 75 |ers:..Fa|iledRequ|
|000034b0| 65 73 74 20 2d 20 20 56 | 61 72 69 61 62 6c 65 20 |est - V|ariable |
|000034c0| 74 6f 20 61 64 64 20 74 | 6f 20 74 68 65 20 72 65 |to add t|o the re|
|000034d0| 71 75 65 73 74 20 6f 6e | 20 74 68 65 20 66 61 69 |quest on| the fai|
|000034e0| 6c 65 64 20 72 65 64 69 | 72 65 63 74 20 70 61 67 |led redi|rect pag|
|000034f0| 65 20 69 66 20 75 73 65 | 72 6e 61 6d 65 20 69 73 |e if use|rname is|
|00003500| 20 6e 6f 74 20 75 6e 69 | 71 75 65 2e 0d 0a 0d 0a | not uni|que.....|
|00003510| 53 75 63 63 65 73 73 52 | 65 64 69 72 65 63 74 20 |SuccessR|edirect |
|00003520| 2d 20 50 61 67 65 20 74 | 6f 20 72 65 64 69 72 65 |- Page t|o redire|
|00003530| 63 74 20 74 6f 20 69 66 | 20 74 68 65 20 75 73 65 |ct to if| the use|
|00003540| 72 20 69 73 20 69 6e 20 | 74 68 65 20 64 61 74 61 |r is in |the data|
|00003550| 62 61 73 65 0d 0a 0d 0a | 46 61 69 6c 65 64 52 65 |base....|FailedRe|
|00003560| 64 69 72 65 63 74 20 2d | 20 50 61 67 65 20 74 6f |direct -| Page to|
|00003570| 20 72 65 64 69 72 65 63 | 74 20 74 6f 20 69 66 20 | redirec|t to if |
|00003580| 74 68 65 20 75 73 65 72 | 6e 61 6d 65 20 61 6e 64 |the user|name and|
|00003590| 20 70 61 73 73 77 6f 72 | 64 20 61 72 65 20 69 6e | passwor|d are in|
|000035a0| 76 61 6c 69 64 0d 0a 0d | 0a 55 73 65 72 4e 61 6d |valid...|.UserNam|
|000035b0| 65 43 6f 6c 75 6d 6e 20 | 2d 20 43 6f 6c 75 6d 6e |eColumn |- Column|
|000035c0| 20 69 6e 20 74 68 65 20 | 64 61 74 61 62 61 73 65 | in the |database|
|000035d0| 20 74 68 61 74 20 63 6f | 6e 74 61 69 6e 73 20 74 | that co|ntains t|
|000035e0| 68 65 20 75 73 65 72 20 | 6e 61 6d 65 0d 0a 0d 0a |he user |name....|
|000035f0| 50 61 73 73 77 6f 72 64 | 43 6f 6c 75 6d 6e 20 2d |Password|Column -|
|00003600| 20 43 6f 6c 75 6d 6e 20 | 69 6e 20 74 68 65 20 64 | Column |in the d|
|00003610| 61 74 61 62 61 73 65 20 | 74 68 61 74 20 63 6f 6e |atabase |that con|
|00003620| 74 61 69 6e 73 20 74 68 | 65 20 70 61 73 73 77 6f |tains th|e passwo|
|00003630| 72 64 0d 0a 0d 0a 50 61 | 73 73 77 6f 72 64 43 6f |rd....Pa|sswordCo|
|00003640| 6e 66 69 72 6d 42 6f 78 | 20 2d 20 28 6f 70 74 69 |nfirmBox| - (opti|
|00003650| 6f 6e 61 6c 29 20 61 64 | 64 69 74 69 6f 6e 61 6c |onal) ad|ditional|
|00003660| 20 66 69 65 6c 64 20 74 | 68 61 74 20 6d 75 73 74 | field t|hat must|
|00003670| 20 68 61 76 65 20 69 64 | 65 6e 74 69 63 61 6c 20 | have id|entical |
|00003680| 63 6f 6e 74 65 6e 74 20 | 74 6f 20 74 68 65 20 70 |content |to the p|
|00003690| 61 73 73 77 6f 72 64 20 | 65 64 69 74 20 62 6f 78 |assword |edit box|
|000036a0| 2e 0d 0a 0d 0a 55 6e 69 | 71 75 65 20 4b 65 79 20 |.....Uni|que Key |
|000036b0| 2d 20 20 54 68 65 20 75 | 6e 69 71 75 65 20 66 69 |- The u|nique fi|
|000036c0| 65 6c 64 20 69 6e 20 74 | 68 65 20 64 61 74 61 62 |eld in t|he datab|
|000036d0| 61 73 65 20 75 73 65 64 | 20 74 6f 20 66 69 6e 64 |ase used| to find|
|000036e0| 20 74 68 65 20 6f 72 69 | 67 69 6e 61 6c 20 72 65 | the ori|ginal re|
|000036f0| 63 6f 72 64 20 61 66 74 | 65 72 20 73 65 61 72 63 |cord aft|er searc|
|00003700| 68 69 6e 67 20 74 68 65 | 20 64 61 74 61 62 61 73 |hing the| databas|
|00003710| 65 20 66 6f 72 20 74 68 | 65 20 75 73 65 72 6e 61 |e for th|e userna|
|00003720| 6d 65 2e 20 20 54 68 69 | 73 20 63 61 6e 6e 6f 74 |me. Thi|s cannot|
|00003730| 20 62 65 20 74 68 65 20 | 75 73 65 72 6e 61 6d 65 | be the |username|
|00003740| 20 6f 72 20 70 61 73 73 | 77 6f 72 64 20 66 69 65 | or pass|word fie|
|00003750| 6c 64 2e 0d 0a 0d 0a 56 | 61 6c 69 64 61 74 65 20 |ld.....V|alidate |
|00003760| 61 6c 6c 20 61 74 20 6f | 6e 63 65 20 2d 20 53 65 |all at o|nce - Se|
|00003770| 65 20 66 6f 72 6d 20 76 | 61 69 64 61 74 69 6f 6e |e form v|aidation|
|00003780| 20 63 6f 6e 74 72 61 63 | 74 73 20 66 6f 72 20 61 | contrac|ts for a|
|00003790| 6e 20 69 6e 20 64 65 70 | 74 68 20 64 65 73 63 72 |n in dep|th descr|
|000037a0| 69 70 74 69 6f 6e 20 6f | 66 20 20 20 20 20 20 20 |iption o|f |
|000037b0| 20 20 74 68 69 73 20 6f | 70 74 69 6f 6e 2e 0d 0a | this o|ption...|
|000037c0| 0d 0a 54 79 70 69 63 61 | 6c 20 50 61 72 74 69 63 |..Typica|l Partic|
|000037d0| 69 70 61 6e 74 73 3a 0d | 0a 5b 73 6f 75 72 63 65 |ipants:.|.[source|
|000037e0| 5d 20 2d 20 72 65 63 6f | 72 64 73 65 74 0d 0a 5b |] - reco|rdset..[|
|000037f0| 74 61 72 67 65 74 5d 20 | 2d 20 69 6d 61 67 65 2c |target] |- image,|
|00003800| 20 62 75 74 74 6f 6e 2c | 20 6f 72 20 61 6e 79 20 | button,| or any |
|00003810| 63 6c 69 63 6b 61 62 6c | 65 20 6f 62 6a 65 63 74 |clickabl|e object|
|00003820| 0d 0a 5b 75 73 65 72 6e | 61 6d 65 5d 20 2d 20 65 |..[usern|ame] - e|
|00003830| 64 69 74 20 62 6f 78 0d | 0a 5b 70 61 73 73 77 6f |dit box.|.[passwo|
|00003840| 72 64 5d 20 2d 65 64 69 | 74 20 62 6f 78 0d 0a 5b |rd] -edi|t box..[|
|00003850| 66 6f 72 6d 5d 20 2d 20 | 66 6f 72 6d 20 66 72 6f |form] - |form fro|
|00003860| 6d 20 62 61 73 65 6d 65 | 6e 74 0d 0a 0d 0a 46 6f |m baseme|nt....Fo|
|00003870| 72 20 6d 6f 72 65 20 69 | 6e 66 6f 72 6d 61 74 69 |r more i|nformati|
|00003880| 6f 6e 20 6f 6e 20 63 6f | 6e 74 72 61 63 74 73 20 |on on co|ntracts |
|00003890| 6f 66 20 74 68 69 73 20 | 63 61 74 65 67 6f 72 79 |of this |category|
|000038a0| 2c 20 70 6c 65 61 73 65 | 20 72 65 66 65 72 20 74 |, please| refer t|
|000038b0| 6f 0d 0a 53 65 63 75 72 | 69 74 79 2e 64 6f 63 0d |o..Secur|ity.doc.|
|000038c0| 0a 54 68 69 73 20 66 69 | 6c 65 20 69 73 20 61 76 |.This fi|le is av|
|000038d0| 61 69 6c 61 62 6c 65 20 | 69 6e 20 74 68 65 20 43 |ailable |in the C|
|000038e0| 6f 6e 74 72 61 63 74 73 | 20 66 6f 6c 64 65 72 20 |ontracts| folder |
|000038f0| 69 6e 20 74 68 65 20 44 | 72 75 6d 62 65 61 74 20 |in the D|rumbeat |
|00003900| 64 69 72 65 63 74 6f 72 | 79 2e 0d 0a 56 31 30 5f |director|y...V10_|
|00003910| 33 30 2e 03 80 12 00 00 | 00 00 01 00 00 00 4d 44 |30......|......MD|
|00003920| 6f 20 6e 6f 74 20 63 72 | 65 61 74 65 20 5b 73 6f |o not cr|eate [so|
|00003930| 75 72 63 65 5d 20 69 66 | 20 75 73 65 72 20 64 6f |urce] if| user do|
|00003940| 65 73 20 6e 6f 74 20 68 | 61 76 65 20 70 65 72 6d |es not h|ave perm|
|00003950| 69 73 73 69 6f 6e 20 62 | 61 73 65 64 20 6f 6e 20 |ission b|ased on |
|00003960| 61 63 63 65 73 73 20 67 | 72 6f 75 70 01 00 0c 80 |access g|roup....|
|00003970| 01 00 00 00 06 73 6f 75 | 72 63 65 01 00 0e 80 03 |.....sou|rce.....|
|00003980| 00 00 00 00 00 00 00 0c | 53 65 72 76 65 72 28 68 |........|Server(h|
|00003990| 74 6d 6c 29 01 00 08 80 | 04 00 00 00 0c 53 65 72 |tml)....|.....Ser|
|000039a0| 76 65 72 28 68 74 6d 6c | 29 02 00 00 00 00 00 00 |ver(html|).......|
|000039b0| 00 ff 93 01 73 65 73 73 | 69 6f 6e 67 72 6f 75 70 |....sess|iongroup|
|000039c0| 3d 5b 41 6c 6c 6f 77 65 | 64 20 47 72 6f 75 70 73 |=[Allowe|d Groups|
|000039d0| 5d 3b 0d 0a 73 65 73 73 | 69 6f 6e 67 72 6f 75 70 |];..sess|iongroup|
|000039e0| 3d 73 65 73 73 69 6f 6e | 67 72 6f 75 70 2e 73 70 |=session|group.sp|
|000039f0| 6c 69 74 28 22 2c 22 29 | 3b 0d 0a 6c 6f 6f 70 6c |lit(",")|;..loopl|
|00003a00| 65 6e 67 74 68 3d 30 3b | 0d 0a 76 61 6c 69 64 3d |ength=0;|..valid=|
|00003a10| 66 61 6c 73 65 3b 0d 0a | 0d 0a 77 68 69 6c 65 20 |false;..|..while |
|00003a20| 28 73 65 73 73 69 6f 6e | 67 72 6f 75 70 2e 6c 65 |(session|group.le|
|00003a30| 6e 67 74 68 3e 6c 6f 6f | 70 6c 65 6e 67 74 68 20 |ngth>loo|plength |
|00003a40| 26 26 20 76 61 6c 69 64 | 3d 3d 66 61 6c 73 65 29 |&& valid|==false)|
|00003a50| 20 20 7b 0d 0a 20 20 53 | 65 73 73 69 6f 6e 56 61 | {.. S|essionVa|
|00003a60| 6c 75 65 3d 73 65 73 73 | 69 6f 6e 67 72 6f 75 70 |lue=sess|iongroup|
|00003a70| 5b 6c 6f 6f 70 6c 65 6e | 67 74 68 5d 0d 0a 20 0d |[looplen|gth].. .|
|00003a80| 0a 20 20 69 66 20 28 53 | 65 73 73 69 6f 6e 28 22 |. if (S|ession("|
|00003a90| 53 65 73 73 69 6f 6e 50 | 61 73 73 77 6f 72 64 22 |SessionP|assword"|
|00003aa0| 29 29 20 7b 0d 0a 0d 0a | 20 20 20 20 69 66 20 28 |)) {....| if (|
|00003ab0| 53 65 73 73 69 6f 6e 28 | 22 53 65 73 73 69 6f 6e |Session(|"Session|
|00003ac0| 50 61 73 73 77 6f 72 64 | 22 29 3d 3d 53 65 73 73 |Password|")==Sess|
|00003ad0| 69 6f 6e 56 61 6c 75 65 | 29 20 7b 0d 0a 20 20 20 |ionValue|) {.. |
|00003ae0| 20 20 20 76 61 6c 69 64 | 3d 74 72 75 65 3b 0d 0a | valid|=true;..|
|00003af0| 20 20 20 20 20 20 7d 0d | 0a 20 20 20 20 7d 0d 0a | }.|. }..|
|00003b00| 20 20 6c 6f 6f 70 6c 65 | 6e 67 74 68 2b 2b 3b 0d | loople|ngth++;.|
|00003b10| 0a 20 20 7d 0d 0a 69 66 | 20 28 76 61 6c 69 64 20 |. }..if| (valid |
|00003b20| 21 3d 20 66 61 6c 73 65 | 29 20 20 7b 0d 0a 20 20 |!= false|) {.. |
|00003b30| 52 65 73 70 6f 6e 73 65 | 2e 57 72 69 74 65 28 68 |Response|.Write(h|
|00003b40| 74 6d 6c 29 0d 0a 7d 01 | 00 00 00 ff af 01 73 65 |tml)..}.|......se|
|00003b50| 73 73 69 6f 6e 67 72 6f | 75 70 3d 5b 41 6c 6c 6f |ssiongro|up=[Allo|
|00003b60| 77 65 64 20 47 72 6f 75 | 70 73 5d 0d 0a 73 65 73 |wed Grou|ps]..ses|
|00003b70| 73 69 6f 6e 67 72 6f 75 | 70 3d 73 70 6c 69 74 28 |siongrou|p=split(|
|00003b80| 73 65 73 73 69 6f 6e 67 | 72 6f 75 70 2c 20 22 2c |sessiong|roup, ",|
|00003b90| 22 29 0d 0a 6c 6f 6f 70 | 6c 65 6e 67 74 68 3d 30 |")..loop|length=0|
|00003ba0| 0d 0a 76 61 6c 69 64 3d | 66 61 6c 73 65 0d 0a 0d |..valid=|false...|
|00003bb0| 0a 77 68 69 6c 65 20 28 | 55 62 6f 75 6e 64 28 73 |.while (|Ubound(s|
|00003bc0| 65 73 73 69 6f 6e 67 72 | 6f 75 70 29 3e 3d 6c 6f |essiongr|oup)>=lo|
|00003bd0| 6f 70 6c 65 6e 67 74 68 | 20 61 6e 64 20 76 61 6c |oplength| and val|
|00003be0| 69 64 3d 66 61 6c 73 65 | 29 20 20 0d 0a 20 20 53 |id=false|) .. S|
|00003bf0| 65 73 73 69 6f 6e 56 61 | 6c 75 65 3d 73 65 73 73 |essionVa|lue=sess|
|00003c00| 69 6f 6e 67 72 6f 75 70 | 28 6c 6f 6f 70 6c 65 6e |iongroup|(looplen|
|00003c10| 67 74 68 29 0d 0a 20 0d | 0a 20 20 69 66 20 28 53 |gth).. .|. if (S|
|00003c20| 65 73 73 69 6f 6e 28 22 | 53 65 73 73 69 6f 6e 50 |ession("|SessionP|
|00003c30| 61 73 73 77 6f 72 64 22 | 29 3c 3e 22 22 29 20 74 |assword"|)<>"") t|
|00003c40| 68 65 6e 0d 0a 20 20 20 | 20 69 66 20 28 63 73 74 |hen.. | if (cst|
|00003c50| 72 28 53 65 73 73 69 6f | 6e 28 22 53 65 73 73 69 |r(Sessio|n("Sessi|
|00003c60| 6f 6e 50 61 73 73 77 6f | 72 64 22 29 29 3d 53 65 |onPasswo|rd"))=Se|
|00003c70| 73 73 69 6f 6e 56 61 6c | 75 65 29 20 74 68 65 6e |ssionVal|ue) then|
|00003c80| 0d 0a 20 20 20 20 20 20 | 76 61 6c 69 64 3d 74 72 |.. |valid=tr|
|00003c90| 75 65 0d 0a 20 20 20 20 | 20 20 65 6e 64 20 69 66 |ue.. | end if|
|00003ca0| 0d 0a 20 20 20 20 65 6e | 64 20 69 66 0d 0a 20 20 |.. en|d if.. |
|00003cb0| 6c 6f 6f 70 6c 65 6e 67 | 74 68 3d 6c 6f 6f 70 6c |loopleng|th=loopl|
|00003cc0| 65 6e 67 74 68 2b 31 0d | 0a 20 20 57 65 6e 64 0d |ength+1.|. Wend.|
|00003cd0| 0a 69 66 20 28 76 61 6c | 69 64 20 3d 20 66 61 6c |.if (val|id = fal|
|00003ce0| 73 65 29 20 74 68 65 6e | 20 52 65 73 70 6f 6e 73 |se) then| Respons|
|00003cf0| 65 2e 57 72 69 74 65 28 | 68 74 6d 6c 29 01 00 05 |e.Write(|html)...|
|00003d00| 80 05 00 00 00 0e 41 6c | 6c 6f 77 65 64 20 47 72 |......Al|lowed Gr|
|00003d10| 6f 75 70 73 00 00 00 00 | 08 00 00 00 00 00 00 00 |oups....|........|
|00003d20| 00 00 00 00 00 00 00 00 | 00 08 53 65 63 75 72 69 |........|..Securi|
|00003d30| 74 79 00 00 00 00 00 00 | 03 00 00 00 01 00 00 00 |ty......|........|
|00003d40| 03 00 08 80 04 00 00 00 | 08 6f 6e 55 6e 4c 6f 61 |........|.onUnLoa|
|00003d50| 64 01 00 00 00 00 00 00 | 00 00 08 80 04 00 00 00 |d.......|........|
|00003d60| 06 53 65 72 76 65 72 01 | 00 00 00 00 00 00 00 00 |.Server.|........|
|00003d70| 08 80 04 00 00 00 06 6f | 6e 42 6c 75 72 01 00 00 |.......o|nBlur...|
|00003d80| 00 00 00 00 00 00 85 58 | 02 59 7f 89 d2 11 80 6c |.......X|.Y.....l|
|00003d90| 00 60 08 d0 5a 6a 01 00 | 00 00 24 33 37 37 41 43 |.`..Zj..|..$377AC|
|00003da0| 34 33 30 2d 36 32 31 31 | 2d 31 31 44 32 2d 38 31 |430-6211|-11D2-81|
|00003db0| 31 37 2d 30 30 36 30 30 | 38 43 38 36 43 32 35 03 |17-00600|8C86C25.|
|00003dc0| 33 2e 30 ff c7 01 44 65 | 73 63 72 69 70 74 69 6f |3.0...De|scriptio|
|00003dd0| 6e 3a 0d 0a 52 65 64 69 | 72 65 63 74 73 20 74 68 |n:..Redi|rects th|
|00003de0| 65 20 75 73 65 72 20 69 | 66 20 74 68 65 20 41 63 |e user i|f the Ac|
|00003df0| 63 65 73 73 20 47 72 6f | 75 70 20 73 65 73 73 69 |cess Gro|up sessi|
|00003e00| 6f 6e 20 76 61 72 69 61 | 62 6c 65 20 64 6f 65 73 |on varia|ble does|
|00003e10| 20 6e 6f 74 20 6d 61 74 | 63 68 20 74 68 65 20 6f | not mat|ch the o|
|00003e20| 6e 65 20 73 65 74 20 75 | 70 20 62 79 20 74 68 65 |ne set u|p by the|
|00003e30| 20 73 65 63 75 72 69 74 | 79 20 6c 6f 67 6f 6e 20 | securit|y logon |
|00003e40| 70 61 67 65 20 70 72 65 | 76 69 6f 75 73 6c 79 2e |page pre|viously.|
|00003e50| 0d 0a 0d 0a 50 61 72 61 | 6d 65 74 65 72 73 3a 0d |....Para|meters:.|
|00003e60| 0a 41 63 63 65 73 73 20 | 47 72 6f 75 70 20 2d 20 |.Access |Group - |
|00003e70| 47 72 6f 75 70 73 20 74 | 68 61 74 20 73 68 6f 75 |Groups t|hat shou|
|00003e80| 6c 64 20 68 61 76 65 20 | 61 63 63 65 73 73 20 74 |ld have |access t|
|00003e90| 6f 20 74 68 65 20 70 61 | 67 65 2c 20 63 6f 6d 6d |o the pa|ge, comm|
|00003ea0| 61 20 73 65 70 61 72 61 | 74 65 64 20 20 66 6f 72 |a separa|ted for|
|00003eb0| 20 6d 6f 72 65 20 74 68 | 61 6e 20 6f 6e 65 20 67 | more th|an one g|
|00003ec0| 72 6f 75 70 2e 0d 0a 0d | 0a 54 79 70 69 63 61 6c |roup....|.Typical|
|00003ed0| 20 50 61 72 74 69 63 69 | 70 61 6e 74 73 3a 0d 0a | Partici|pants:..|
|00003ee0| 6e 6f 6e 65 0d 0a 0d 0a | 46 6f 72 20 6d 6f 72 65 |none....|For more|
|00003ef0| 20 69 6e 66 6f 72 6d 61 | 74 69 6f 6e 20 6f 6e 20 | informa|tion on |
|00003f00| 63 6f 6e 74 72 61 63 74 | 73 20 6f 66 20 74 68 69 |contract|s of thi|
|00003f10| 73 20 63 61 74 65 67 6f | 72 79 2c 20 70 6c 65 61 |s catego|ry, plea|
|00003f20| 73 65 20 72 65 66 65 72 | 20 74 6f 0d 0a 53 65 63 |se refer| to..Sec|
|00003f30| 75 72 69 74 79 2e 64 6f | 63 0d 0a 54 68 69 73 20 |urity.do|c..This |
|00003f40| 66 69 6c 65 20 69 73 20 | 61 76 61 69 6c 61 62 6c |file is |availabl|
|00003f50| 65 20 69 6e 20 74 68 65 | 20 43 6f 6e 74 72 61 63 |e in the| Contrac|
|00003f60| 74 73 20 66 6f 6c 64 65 | 72 20 69 6e 20 74 68 65 |ts folde|r in the|
|00003f70| 20 44 72 75 6d 62 65 61 | 74 20 64 69 72 65 63 74 | Drumbea|t direct|
|00003f80| 6f 72 79 2e 0d 0a 56 31 | 30 5f 33 30 2e 03 80 12 |ory...V1|0_30....|
|00003f90| 00 00 00 52 49 6e 73 65 | 72 74 20 5b 75 73 65 72 |...RInse|rt [user|
|00003fa0| 6e 61 6d 65 5d 20 61 6e | 64 20 5b 70 61 73 73 77 |name] an|d [passw|
|00003fb0| 6f 72 64 5d 20 69 6e 74 | 6f 20 5b 73 6f 75 72 63 |ord] int|o [sourc|
|00003fc0| 65 5d 20 69 66 20 5b 75 | 73 65 72 6e 61 6d 65 5d |e] if [u|sername]|
|00003fd0| 20 69 73 20 75 6e 69 71 | 75 65 20 69 6e 20 5b 73 | is uniq|ue in [s|
|00003fe0| 6f 75 72 63 65 5d 00 00 | 00 00 00 05 00 0c 80 01 |ource]..|........|
|00003ff0| 00 00 00 06 73 6f 75 72 | 63 65 02 00 0e 80 03 00 |....sour|ce......|
|00004000| 00 00 00 00 00 00 08 53 | 65 72 76 65 72 28 29 0e |.......S|erver().|
|00004010| 80 03 00 00 00 01 00 00 | 00 14 47 65 74 43 6f 6c |........|..GetCol|
|00004020| 75 6d 6e 56 61 6c 75 65 | 28 6e 61 6d 65 29 01 00 |umnValue|(name)..|
|00004030| 08 80 04 00 00 00 08 53 | 65 72 76 65 72 28 29 02 |.......S|erver().|
|00004040| 00 00 00 00 00 00 00 ff | a0 02 76 61 72 20 6e 61 |........|..var na|
|00004050| 6d 65 70 61 73 73 65 64 | 20 3d 20 66 61 6c 73 65 |mepassed| = false|
|00004060| 3b 0d 0a 69 66 20 28 52 | 65 71 75 65 73 74 2e 46 |;..if (R|equest.F|
|00004070| 6f 72 6d 2e 4b 65 79 28 | 22 5b 74 61 72 67 65 74 |orm.Key(|"[target|
|00004080| 5d 22 29 20 21 3d 20 22 | 22 29 20 20 7b 0d 0a 20 |]") != "|") {.. |
|00004090| 20 76 61 72 20 66 69 6c | 74 65 72 5f 73 74 72 69 | var fil|ter_stri|
|000040a0| 6e 67 20 3d 20 5b 55 73 | 65 72 4e 61 6d 65 43 6f |ng = [Us|erNameCo|
|000040b0| 6c 75 6d 6e 5d 20 2b 20 | 22 3d 20 27 22 20 2b 20 |lumn] + |"= '" + |
|000040c0| 53 74 72 69 6e 67 28 52 | 65 71 75 65 73 74 28 22 |String(R|equest("|
|000040d0| 5b 75 73 65 72 6e 61 6d | 65 5d 22 29 29 20 2b 20 |[usernam|e]")) + |
|000040e0| 22 27 22 3b 0d 0a 20 20 | 5b 73 6f 75 72 63 65 5d |"'";.. |[source]|
|000040f0| 2e 52 53 2e 46 69 6c 74 | 65 72 3d 66 69 6c 74 65 |.RS.Filt|er=filte|
|00004100| 72 5f 73 74 72 69 6e 67 | 0d 0a 20 20 69 66 20 28 |r_string|.. if (|
|00004110| 5b 73 6f 75 72 63 65 5d | 2e 49 73 42 4f 46 28 29 |[source]|.IsBOF()|
|00004120| 20 26 26 20 5b 73 6f 75 | 72 63 65 5d 2e 49 73 45 | && [sou|rce].IsE|
|00004130| 4f 46 28 29 29 0d 0a 20 | 20 20 20 6e 61 6d 65 70 |OF()).. | namep|
|00004140| 61 73 73 65 64 20 3d 20 | 74 72 75 65 3b 0d 0a 20 |assed = |true;.. |
|00004150| 20 69 66 20 28 6e 61 6d | 65 70 61 73 73 65 64 29 | if (nam|epassed)|
|00004160| 0d 0a 20 20 20 20 7b 0d | 0a 20 20 20 20 20 20 5b |.. {.|. [|
|00004170| 73 6f 75 72 63 65 5d 2e | 52 53 2e 41 64 64 4e 65 |source].|RS.AddNe|
|00004180| 77 28 29 3b 0d 0a 20 20 | 20 20 20 20 5b 73 6f 75 |w();.. | [sou|
|00004190| 72 63 65 5d 2e 52 53 2e | 46 69 65 6c 64 73 28 5b |rce].RS.|Fields([|
|000041a0| 50 61 73 73 77 6f 72 64 | 43 6f 6c 75 6d 6e 5d 29 |Password|Column])|
|000041b0| 20 3d 20 53 74 72 69 6e | 67 28 52 65 71 75 65 73 | = Strin|g(Reques|
|000041c0| 74 28 22 5b 70 61 73 73 | 77 6f 72 64 5d 22 29 29 |t("[pass|word]"))|
|000041d0| 3b 0d 0a 20 20 20 20 20 | 20 5b 73 6f 75 72 63 65 |;.. | [source|
|000041e0| 5d 2e 52 53 2e 46 69 65 | 6c 64 73 28 5b 55 73 65 |].RS.Fie|lds([Use|
|000041f0| 72 4e 61 6d 65 43 6f 6c | 75 6d 6e 5d 29 20 3d 20 |rNameCol|umn]) = |
|00004200| 53 74 72 69 6e 67 28 52 | 65 71 75 65 73 74 28 22 |String(R|equest("|
|00004210| 5b 75 73 65 72 6e 61 6d | 65 5d 22 29 29 3b 0d 0a |[usernam|e]"));..|
|00004220| 20 20 20 20 20 20 5b 73 | 6f 75 72 63 65 5d 2e 52 | [s|ource].R|
|00004230| 53 2e 55 70 64 61 74 65 | 28 29 3b 0d 0a 20 20 09 |S.Update|();.. .|
|00004240| 09 20 20 52 65 73 70 6f | 6e 73 65 2e 52 65 64 69 |. Respo|nse.Redi|
|00004250| 72 65 63 74 28 65 73 63 | 61 70 65 28 5b 53 75 63 |rect(esc|ape([Suc|
|00004260| 63 65 73 73 52 65 64 69 | 72 65 63 74 5d 29 29 3b |cessRedi|rect]));|
|00004270| 0d 0a 20 20 20 20 7d 0d | 0a 20 20 20 65 6c 73 65 |.. }.|. else|
|00004280| 7b 0d 0a 20 20 20 20 20 | 20 52 65 73 70 6f 6e 73 |{.. | Respons|
|00004290| 65 2e 52 65 64 69 72 65 | 63 74 28 65 73 63 61 70 |e.Redire|ct(escap|
|000042a0| 65 28 5b 46 61 69 6c 65 | 64 52 65 64 69 72 65 63 |e([Faile|dRedirec|
|000042b0| 74 5d 29 2b 22 3f 22 2b | 20 5b 46 61 69 6c 65 64 |t])+"?"+| [Failed|
|000042c0| 52 65 71 75 65 73 74 5d | 20 2b 22 3d 22 2b 65 73 |Request]| +"="+es|
|000042d0| 63 61 70 65 28 6e 61 6d | 65 70 61 73 73 65 64 29 |cape(nam|epassed)|
|000042e0| 29 0d 0a 20 20 20 7d 0d | 0a 7d 01 00 00 00 ff 7c |).. }.|.}.....||
|000042f0| 02 69 66 20 28 52 65 71 | 75 65 73 74 2e 46 6f 72 |.if (Req|uest.For|
|00004300| 6d 2e 4b 65 79 28 22 5b | 74 61 72 67 65 74 5d 22 |m.Key("[|target]"|
|00004310| 29 20 3c 3e 20 22 22 29 | 20 74 68 65 6e 0d 0a 20 |) <> "")| then.. |
|00004320| 20 66 69 6c 74 65 72 5f | 73 74 72 69 6e 67 20 3d | filter_|string =|
|00004330| 20 5b 55 73 65 72 4e 61 | 6d 65 43 6f 6c 75 6d 6e | [UserNa|meColumn|
|00004340| 5d 20 2b 20 22 3d 20 27 | 22 20 2b 20 63 73 74 72 |] + "= '|" + cstr|
|00004350| 28 52 65 71 75 65 73 74 | 28 22 5b 75 73 65 72 6e |(Request|("[usern|
|00004360| 61 6d 65 5d 22 29 29 20 | 2b 20 22 27 22 0d 0a 20 |ame]")) |+ "'".. |
|00004370| 20 5b 73 6f 75 72 63 65 | 5d 2e 52 53 2e 46 69 6c | [source|].RS.Fil|
|00004380| 74 65 72 3d 66 69 6c 74 | 65 72 5f 73 74 72 69 6e |ter=filt|er_strin|
|00004390| 67 0d 0a 20 20 69 66 20 | 28 5b 73 6f 75 72 63 65 |g.. if |([source|
|000043a0| 5d 2e 49 73 42 4f 46 28 | 29 20 61 6e 64 20 5b 73 |].IsBOF(|) and [s|
|000043b0| 6f 75 72 63 65 5d 2e 49 | 73 45 4f 46 28 29 29 20 |ource].I|sEOF()) |
|000043c0| 74 68 65 6e 20 6e 61 6d | 65 70 61 73 73 65 64 20 |then nam|epassed |
|000043d0| 3d 20 31 0d 0a 20 20 69 | 66 20 28 6e 61 6d 65 70 |= 1.. i|f (namep|
|000043e0| 61 73 73 65 64 29 20 74 | 68 65 6e 0d 0a 20 20 20 |assed) t|hen.. |
|000043f0| 20 20 20 5b 73 6f 75 72 | 63 65 5d 2e 52 53 2e 41 | [sour|ce].RS.A|
|00004400| 64 64 4e 65 77 28 29 0d | 0a 20 20 20 20 20 20 5b |ddNew().|. [|
|00004410| 73 6f 75 72 63 65 5d 2e | 52 53 2e 46 69 65 6c 64 |source].|RS.Field|
|00004420| 73 28 5b 50 61 73 73 77 | 6f 72 64 43 6f 6c 75 6d |s([Passw|ordColum|
|00004430| 6e 5d 29 20 3d 20 63 73 | 74 72 28 52 65 71 75 65 |n]) = cs|tr(Reque|
|00004440| 73 74 28 22 5b 70 61 73 | 73 77 6f 72 64 5d 22 29 |st("[pas|sword]")|
|00004450| 29 0d 0a 20 20 20 20 20 | 20 5b 73 6f 75 72 63 65 |).. | [source|
|00004460| 5d 2e 52 53 2e 46 69 65 | 6c 64 73 28 5b 55 73 65 |].RS.Fie|lds([Use|
|00004470| 72 4e 61 6d 65 43 6f 6c | 75 6d 6e 5d 29 20 3d 20 |rNameCol|umn]) = |
|00004480| 63 73 74 72 28 52 65 71 | 75 65 73 74 28 22 5b 75 |cstr(Req|uest("[u|
|00004490| 73 65 72 6e 61 6d 65 5d | 22 29 29 0d 0a 20 20 20 |sername]|")).. |
|000044a0| 20 20 20 5b 73 6f 75 72 | 63 65 5d 2e 52 53 2e 55 | [sour|ce].RS.U|
|000044b0| 70 64 61 74 65 28 29 0d | 0a 20 20 09 09 20 20 52 |pdate().|. .. R|
|000044c0| 65 73 70 6f 6e 73 65 2e | 52 65 64 69 72 65 63 74 |esponse.|Redirect|
|000044d0| 28 55 52 4c 45 73 63 61 | 70 65 53 70 61 63 65 73 |(URLEsca|peSpaces|
|000044e0| 28 5b 53 75 63 63 65 73 | 73 52 65 64 69 72 65 63 |([Succes|sRedirec|
|000044f0| 74 5d 29 29 0d 0a 20 20 | 20 65 6c 73 65 20 52 65 |t])).. | else Re|
|00004500| 73 70 6f 6e 73 65 2e 52 | 65 64 69 72 65 63 74 28 |sponse.R|edirect(|
|00004510| 55 52 4c 45 73 63 61 70 | 65 53 70 61 63 65 73 28 |URLEscap|eSpaces(|
|00004520| 5b 46 61 69 6c 65 64 52 | 65 64 69 72 65 63 74 5d |[FailedR|edirect]|
|00004530| 29 2b 22 3f 22 2b 20 5b | 46 61 69 6c 65 64 52 65 |)+"?"+ [|FailedRe|
|00004540| 71 75 65 73 74 5d 20 2b | 22 3d 22 2b 63 73 74 72 |quest] +|"="+cstr|
|00004550| 28 6e 61 6d 65 70 61 73 | 73 65 64 29 29 0d 0a 65 |(namepas|sed))..e|
|00004560| 6e 64 20 69 66 0d 0a 65 | 6e 64 20 69 66 0c 80 01 |nd if..e|nd if...|
|00004570| 00 00 00 06 74 61 72 67 | 65 74 01 00 0e 80 03 00 |....targ|et......|
|00004580| 00 00 00 00 00 00 07 6f | 6e 43 6c 69 63 6b 01 00 |.......o|nClick..|
|00004590| 08 80 04 00 00 00 07 6f | 6e 43 6c 69 63 6b 02 00 |.......o|nClick..|
|000045a0| 00 00 00 00 00 00 00 01 | 00 00 00 00 0c 80 01 00 |........|........|
|000045b0| 00 00 08 75 73 65 72 6e | 61 6d 65 01 00 0e 80 03 |...usern|ame.....|
|000045c0| 00 00 00 01 00 00 00 09 | 67 65 74 54 65 78 74 28 |........|getText(|
|000045d0| 29 00 00 0c 80 01 00 00 | 00 08 70 61 73 73 77 6f |).......|..passwo|
|000045e0| 72 64 01 00 0e 80 03 00 | 00 00 01 00 00 00 09 67 |rd......|.......g|
|000045f0| 65 74 54 65 78 74 28 29 | 00 00 0c 80 01 00 00 00 |etText()|........|
|00004600| 04 66 6f 72 6d 01 00 0e | 80 03 00 00 00 00 00 00 |.form...|........|
|00004610| 00 08 6f 6e 53 75 62 6d | 69 74 00 00 06 00 05 80 |..onSubm|it......|
|00004620| 05 00 00 00 0e 55 73 65 | 72 4e 61 6d 65 43 6f 6c |.....Use|rNameCol|
|00004630| 75 6d 6e 04 00 00 00 08 | 00 00 00 00 00 00 00 01 |umn.....|........|
|00004640| 00 00 00 06 73 6f 75 72 | 63 65 00 00 00 00 05 80 |....sour|ce......|
|00004650| 05 00 00 00 0e 50 61 73 | 73 77 6f 72 64 43 6f 6c |.....Pas|swordCol|
|00004660| 75 6d 6e 04 00 00 00 08 | 00 00 00 00 00 00 00 01 |umn.....|........|
|00004670| 00 00 00 06 73 6f 75 72 | 63 65 00 00 00 00 05 80 |....sour|ce......|
|00004680| 05 00 00 00 0e 46 61 69 | 6c 65 64 52 65 64 69 72 |.....Fai|ledRedir|
|00004690| 65 63 74 06 00 00 00 03 | 00 01 00 00 00 00 00 00 |ect.....|........|
|000046a0| 00 00 00 00 00 00 00 00 | 05 80 05 00 00 00 0f 53 |........|.......S|
|000046b0| 75 63 63 65 73 73 52 65 | 64 69 72 65 63 74 06 00 |uccessRe|direct..|
|000046c0| 00 00 03 00 01 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000046d0| 00 00 00 05 80 05 00 00 | 00 12 50 61 73 73 77 6f |........|..Passwo|
|000046e0| 72 64 43 6f 6e 66 69 72 | 6d 42 6f 78 00 00 00 00 |rdConfir|mBox....|
|000046f0| 08 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004700| 00 05 80 05 00 00 00 0d | 46 61 69 6c 65 64 52 65 |........|FailedRe|
|00004710| 71 75 65 73 74 00 00 00 | 00 08 00 14 00 00 00 6e |quest...|.......n|
|00004720| 00 61 00 6d 00 65 00 70 | 00 61 00 73 00 73 00 65 |.a.m.e.p|.a.s.s.e|
|00004730| 00 64 00 00 00 00 00 00 | 00 00 00 00 00 00 08 53 |.d......|.......S|
|00004740| 65 63 75 72 69 74 79 01 | 00 e0 5a 9c 93 23 83 d2 |ecurity.|..Z..#..|
|00004750| 11 80 52 00 10 4b d3 38 | d1 00 00 00 00 03 00 00 |..R..K.8|........|
|00004760| 00 01 00 00 00 03 00 08 | 80 04 00 00 00 06 6f 6e |........|......on|
|00004770| 4c 6f 61 64 01 00 00 00 | 00 00 00 00 00 08 80 04 |Load....|........|
|00004780| 00 00 00 06 53 65 72 76 | 65 72 02 00 00 00 00 00 |....Serv|er......|
|00004790| 00 00 2e 76 61 72 20 6e | 61 6d 65 70 61 73 73 65 |...var n|amepasse|
|000047a0| 64 20 3d 20 66 61 6c 73 | 65 3b 0d 0a 76 61 72 20 |d = fals|e;..var |
|000047b0| 70 77 70 61 73 73 65 64 | 20 3d 20 66 61 6c 73 65 |pwpassed| = false|
|000047c0| 3b 01 00 00 00 3c 64 69 | 6d 20 6e 61 6d 65 70 61 |;....<di|m namepa|
|000047d0| 73 73 65 64 20 0d 0a 64 | 69 6d 20 70 77 70 61 73 |ssed ..d|im pwpas|
|000047e0| 73 65 64 20 0d 0a 6e 61 | 6d 65 70 61 73 73 65 64 |sed ..na|mepassed|
|000047f0| 20 3d 20 30 0d 0a 70 77 | 70 61 73 73 65 64 20 3d | = 0..pw|passed =|
|00004800| 20 30 08 80 04 00 00 00 | 06 6f 6e 42 6c 75 72 01 | 0......|.onBlur.|
|00004810| 00 00 00 00 00 00 00 00 | 6f 5e bc 76 8c 90 d2 11 |........|o^.v....|
|00004820| 81 4d 00 10 4b 28 01 9f | 01 00 00 00 24 33 37 37 |.M..K(..|....$377|
|00004830| 41 43 34 33 30 2d 36 32 | 31 31 2d 31 31 44 32 2d |AC430-62|11-11D2-|
|00004840| 38 31 31 37 2d 30 30 36 | 30 30 38 43 38 36 43 32 |8117-006|008C86C2|
|00004850| 35 03 33 2e 30 ff ff 04 | 44 65 73 63 72 69 70 74 |5.3.0...|Descript|
|00004860| 69 6f 6e 3a 0d 0a 43 68 | 65 63 6b 73 20 74 68 65 |ion:..Ch|ecks the|
|00004870| 20 64 61 74 61 62 61 73 | 65 20 66 6f 72 20 74 6f | databas|e for to|
|00004880| 20 6d 61 6b 65 20 73 75 | 72 65 20 74 68 61 74 20 | make su|re that |
|00004890| 75 73 65 72 6e 61 6d 65 | 20 69 73 20 75 6e 69 71 |username| is uniq|
|000048a0| 75 65 2c 20 61 6e 64 20 | 69 6e 73 65 72 74 73 20 |ue, and |inserts |
|000048b0| 74 68 65 20 75 73 65 72 | 6e 61 6d 65 20 61 6e 64 |the user|name and|
|000048c0| 20 70 61 73 73 77 6f 72 | 64 20 69 6e 74 6f 20 61 | passwor|d into a|
|000048d0| 20 6e 65 77 20 72 6f 77 | 20 69 6e 20 74 68 65 20 | new row| in the |
|000048e0| 72 65 63 6f 72 64 73 65 | 74 2e 20 20 4f 74 68 65 |recordse|t. Othe|
|000048f0| 72 77 69 73 65 20 69 74 | 20 72 65 64 69 72 65 63 |rwise it| redirec|
|00004900| 74 73 20 74 6f 20 61 20 | 66 61 69 6c 75 72 65 20 |ts to a |failure |
|00004910| 70 61 67 65 2c 20 61 6e | 64 20 73 65 74 73 20 74 |page, an|d sets t|
|00004920| 68 65 20 66 61 69 6c 65 | 64 20 72 65 71 75 65 73 |he faile|d reques|
|00004930| 74 20 76 61 72 69 61 62 | 6c 65 20 74 6f 20 66 61 |t variab|le to fa|
|00004940| 6c 73 65 2e 0d 0a 0d 0a | 50 61 72 61 6d 65 74 65 |lse.....|Paramete|
|00004950| 72 73 3a 0d 0a 46 61 69 | 6c 65 64 52 65 71 75 65 |rs:..Fai|ledReque|
|00004960| 73 74 20 2d 20 20 56 61 | 72 69 61 62 6c 65 20 74 |st - Va|riable t|
|00004970| 6f 20 61 64 64 20 74 6f | 20 74 68 65 20 72 65 71 |o add to| the req|
|00004980| 75 65 73 74 20 6f 6e 20 | 74 68 65 20 66 61 69 6c |uest on |the fail|
|00004990| 65 64 20 72 65 64 69 72 | 65 63 74 20 70 61 67 65 |ed redir|ect page|
|000049a0| 20 69 66 20 75 73 65 72 | 6e 61 6d 65 20 69 73 20 | if user|name is |
|000049b0| 6e 6f 74 20 75 6e 69 71 | 75 65 2e 0d 0a 0d 0a 53 |not uniq|ue.....S|
|000049c0| 75 63 63 65 73 73 52 65 | 64 69 72 65 63 74 20 2d |uccessRe|direct -|
|000049d0| 20 50 61 67 65 20 74 6f | 20 72 65 64 69 72 65 63 | Page to| redirec|
|000049e0| 74 20 74 6f 20 69 66 20 | 74 68 65 20 75 73 65 72 |t to if |the user|
|000049f0| 20 69 73 20 69 6e 20 74 | 68 65 20 64 61 74 61 62 | is in t|he datab|
|00004a00| 61 73 65 0d 0a 0d 0a 46 | 61 69 6c 65 64 52 65 64 |ase....F|ailedRed|
|00004a10| 69 72 65 63 74 20 2d 20 | 50 61 67 65 20 74 6f 20 |irect - |Page to |
|00004a20| 72 65 64 69 72 65 63 74 | 20 74 6f 20 69 66 20 74 |redirect| to if t|
|00004a30| 68 65 20 75 73 65 72 6e | 61 6d 65 20 61 6e 64 20 |he usern|ame and |
|00004a40| 70 61 73 73 77 6f 72 64 | 20 61 72 65 20 69 6e 76 |password| are inv|
|00004a50| 61 6c 69 64 0d 0a 0d 0a | 55 73 65 72 4e 61 6d 65 |alid....|UserName|
|00004a60| 43 6f 6c 75 6d 6e 20 2d | 20 43 6f 6c 75 6d 6e 20 |Column -| Column |
|00004a70| 69 6e 20 74 68 65 20 64 | 61 74 61 62 61 73 65 20 |in the d|atabase |
|00004a80| 74 68 61 74 20 63 6f 6e | 74 61 69 6e 73 20 74 68 |that con|tains th|
|00004a90| 65 20 75 73 65 72 20 6e | 61 6d 65 0d 0a 0d 0a 50 |e user n|ame....P|
|00004aa0| 61 73 73 77 6f 72 64 43 | 6f 6c 75 6d 6e 20 2d 20 |asswordC|olumn - |
|00004ab0| 43 6f 6c 75 6d 6e 20 69 | 6e 20 74 68 65 20 64 61 |Column i|n the da|
|00004ac0| 74 61 62 61 73 65 20 74 | 68 61 74 20 63 6f 6e 74 |tabase t|hat cont|
|00004ad0| 61 69 6e 73 20 74 68 65 | 20 70 61 73 73 77 6f 72 |ains the| passwor|
|00004ae0| 64 0d 0a 0d 0a 50 61 73 | 73 77 6f 72 64 43 6f 6e |d....Pas|swordCon|
|00004af0| 66 69 72 6d 42 6f 78 20 | 2d 20 28 6f 70 74 69 6f |firmBox |- (optio|
|00004b00| 6e 61 6c 29 20 61 64 64 | 69 74 69 6f 6e 61 6c 20 |nal) add|itional |
|00004b10| 66 69 65 6c 64 20 74 68 | 61 74 20 6d 75 73 74 20 |field th|at must |
|00004b20| 68 61 76 65 20 69 64 65 | 6e 74 69 63 61 6c 20 63 |have ide|ntical c|
|00004b30| 6f 6e 74 65 6e 74 20 74 | 6f 20 74 68 65 20 70 61 |ontent t|o the pa|
|00004b40| 73 73 77 6f 72 64 20 65 | 64 69 74 20 62 6f 78 2e |ssword e|dit box.|
|00004b50| 0d 0a 0d 0a 55 6e 69 71 | 75 65 20 4b 65 79 20 2d |....Uniq|ue Key -|
|00004b60| 20 20 54 68 65 20 75 6e | 69 71 75 65 20 66 69 65 | The un|ique fie|
|00004b70| 6c 64 20 69 6e 20 74 68 | 65 20 64 61 74 61 62 61 |ld in th|e databa|
|00004b80| 73 65 20 75 73 65 64 20 | 74 6f 20 66 69 6e 64 20 |se used |to find |
|00004b90| 74 68 65 20 6f 72 69 67 | 69 6e 61 6c 20 72 65 63 |the orig|inal rec|
|00004ba0| 6f 72 64 20 61 66 74 65 | 72 20 73 65 61 72 63 68 |ord afte|r search|
|00004bb0| 69 6e 67 20 74 68 65 20 | 64 61 74 61 62 61 73 65 |ing the |database|
|00004bc0| 20 66 6f 72 20 74 68 65 | 20 75 73 65 72 6e 61 6d | for the| usernam|
|00004bd0| 65 2e 20 20 54 68 69 73 | 20 63 61 6e 6e 6f 74 20 |e. This| cannot |
|00004be0| 62 65 20 74 68 65 20 75 | 73 65 72 6e 61 6d 65 20 |be the u|sername |
|00004bf0| 6f 72 20 70 61 73 73 77 | 6f 72 64 20 66 69 65 6c |or passw|ord fiel|
|00004c00| 64 2e 0d 0a 0d 0a 54 79 | 70 69 63 61 6c 20 50 61 |d.....Ty|pical Pa|
|00004c10| 72 74 69 63 69 70 61 6e | 74 73 3a 0d 0a 5b 73 6f |rticipan|ts:..[so|
|00004c20| 75 72 63 65 5d 20 2d 20 | 72 65 63 6f 72 64 73 65 |urce] - |recordse|
|00004c30| 74 0d 0a 5b 74 61 72 67 | 65 74 5d 20 2d 20 69 6d |t..[targ|et] - im|
|00004c40| 61 67 65 2c 20 62 75 74 | 74 6f 6e 2c 20 6f 72 20 |age, but|ton, or |
|00004c50| 61 6e 79 20 63 6c 69 63 | 6b 61 62 6c 65 20 6f 62 |any clic|kable ob|
|00004c60| 6a 65 63 74 0d 0a 5b 75 | 73 65 72 6e 61 6d 65 5d |ject..[u|sername]|
|00004c70| 20 2d 20 65 64 69 74 20 | 62 6f 78 0d 0a 5b 70 61 | - edit |box..[pa|
|00004c80| 73 73 77 6f 72 64 5d 20 | 2d 65 64 69 74 20 62 6f |ssword] |-edit bo|
|00004c90| 78 0d 0a 5b 66 6f 72 6d | 5d 20 2d 20 66 6f 72 6d |x..[form|] - form|
|00004ca0| 20 66 72 6f 6d 20 62 61 | 73 65 6d 65 6e 74 0d 0a | from ba|sement..|
|00004cb0| 0d 0a 46 6f 72 20 6d 6f | 72 65 20 69 6e 66 6f 72 |..For mo|re infor|
|00004cc0| 6d 61 74 69 6f 6e 20 6f | 6e 20 63 6f 6e 74 72 61 |mation o|n contra|
|00004cd0| 63 74 73 20 6f 66 20 74 | 68 69 73 20 63 61 74 65 |cts of t|his cate|
|00004ce0| 67 6f 72 79 2c 20 70 6c | 65 61 73 65 20 72 65 66 |gory, pl|ease ref|
|00004cf0| 65 72 20 74 6f 0d 0a 53 | 65 63 75 72 69 74 79 2e |er to..S|ecurity.|
|00004d00| 64 6f 63 0d 0a 54 68 69 | 73 20 66 69 6c 65 20 69 |doc..Thi|s file i|
|00004d10| 73 20 61 76 61 69 6c 61 | 62 6c 65 20 69 6e 20 74 |s availa|ble in t|
|00004d20| 68 65 20 43 6f 6e 74 72 | 61 63 74 73 20 66 6f 6c |he Contr|acts fol|
|00004d30| 64 65 72 20 69 6e 20 74 | 68 65 20 44 72 75 6d 62 |der in t|he Drumb|
|00004d40| 65 61 74 20 64 69 72 65 | 63 74 6f 72 79 2e 0d 0a |eat dire|ctory...|
|00004d50| 56 31 30 5f 33 30 2e 03 | 80 12 00 00 00 6a 49 6e |V10_30..|.....jIn|
|00004d60| 73 65 72 74 20 5b 75 73 | 65 72 6e 61 6d 65 5d 20 |sert [us|ername] |
|00004d70| 61 6e 64 20 5b 70 61 73 | 73 77 6f 72 64 5d 20 69 |and [pas|sword] i|
|00004d80| 6e 74 6f 20 5b 73 6f 75 | 72 63 65 5d 20 69 66 20 |nto [sou|rce] if |
|00004d90| 5b 75 73 65 72 6e 61 6d | 65 5d 20 69 73 20 75 6e |[usernam|e] is un|
|00004da0| 69 71 75 65 20 69 6e 20 | 5b 73 6f 75 72 63 65 5d |ique in |[source]|
|00004db0| 20 61 6e 64 20 64 65 66 | 69 6e 65 20 41 63 63 65 | and def|ine Acce|
|00004dc0| 73 73 20 47 72 6f 75 70 | 00 00 00 00 00 05 00 0c |ss Group|........|
|00004dd0| 80 01 00 00 00 06 73 6f | 75 72 63 65 02 00 0e 80 |......so|urce....|
|00004de0| 03 00 00 00 00 00 00 00 | 08 53 65 72 76 65 72 28 |........|.Server(|
|00004df0| 29 0e 80 03 00 00 00 01 | 00 00 00 14 47 65 74 43 |).......|....GetC|
|00004e00| 6f 6c 75 6d 6e 56 61 6c | 75 65 28 6e 61 6d 65 29 |olumnVal|ue(name)|
|00004e10| 01 00 08 80 04 00 00 00 | 08 53 65 72 76 65 72 28 |........|.Server(|
|00004e20| 29 02 00 00 00 00 00 00 | 00 ff e0 02 76 61 72 20 |).......|....var |
|00004e30| 6e 61 6d 65 70 61 73 73 | 65 64 20 3d 20 66 61 6c |namepass|ed = fal|
|00004e40| 73 65 3b 0d 0a 69 66 20 | 28 52 65 71 75 65 73 74 |se;..if |(Request|
|00004e50| 2e 46 6f 72 6d 2e 4b 65 | 79 28 22 5b 74 61 72 67 |.Form.Ke|y("[targ|
|00004e60| 65 74 5d 22 29 20 21 3d | 20 22 22 29 20 20 7b 0d |et]") !=| "") {.|
|00004e70| 0a 20 20 76 61 72 20 66 | 69 6c 74 65 72 5f 73 74 |. var f|ilter_st|
|00004e80| 72 69 6e 67 20 3d 20 5b | 55 73 65 72 4e 61 6d 65 |ring = [|UserName|
|00004e90| 43 6f 6c 75 6d 6e 5d 20 | 2b 20 22 3d 20 27 22 20 |Column] |+ "= '" |
|00004ea0| 2b 20 53 74 72 69 6e 67 | 28 52 65 71 75 65 73 74 |+ String|(Request|
|00004eb0| 28 22 5b 75 73 65 72 6e | 61 6d 65 5d 22 29 29 20 |("[usern|ame]")) |
|00004ec0| 2b 20 22 27 22 3b 0d 0a | 20 20 5b 73 6f 75 72 63 |+ "'";..| [sourc|
|00004ed0| 65 5d 2e 52 53 2e 46 69 | 6c 74 65 72 3d 66 69 6c |e].RS.Fi|lter=fil|
|00004ee0| 74 65 72 5f 73 74 72 69 | 6e 67 0d 0a 20 20 69 66 |ter_stri|ng.. if|
|00004ef0| 20 28 5b 73 6f 75 72 63 | 65 5d 2e 49 73 42 4f 46 | ([sourc|e].IsBOF|
|00004f00| 28 29 20 26 26 20 5b 73 | 6f 75 72 63 65 5d 2e 49 |() && [s|ource].I|
|00004f10| 73 45 4f 46 28 29 29 0d | 0a 20 20 20 20 6e 61 6d |sEOF()).|. nam|
|00004f20| 65 70 61 73 73 65 64 20 | 3d 20 74 72 75 65 3b 0d |epassed |= true;.|
|00004f30| 0a 20 20 69 66 20 28 6e | 61 6d 65 70 61 73 73 65 |. if (n|amepasse|
|00004f40| 64 29 0d 0a 20 20 20 20 | 7b 0d 0a 20 20 20 20 20 |d).. |{.. |
|00004f50| 20 5b 73 6f 75 72 63 65 | 5d 2e 52 53 2e 41 64 64 | [source|].RS.Add|
|00004f60| 4e 65 77 28 29 3b 0d 0a | 20 20 20 20 20 20 5b 73 |New();..| [s|
|00004f70| 6f 75 72 63 65 5d 2e 52 | 53 2e 46 69 65 6c 64 73 |ource].R|S.Fields|
|00004f80| 28 5b 50 61 73 73 77 6f | 72 64 43 6f 6c 75 6d 6e |([Passwo|rdColumn|
|00004f90| 5d 29 20 3d 20 53 74 72 | 69 6e 67 28 52 65 71 75 |]) = Str|ing(Requ|
|00004fa0| 65 73 74 28 22 5b 70 61 | 73 73 77 6f 72 64 5d 22 |est("[pa|ssword]"|
|00004fb0| 29 29 3b 0d 0a 20 20 20 | 20 20 20 5b 73 6f 75 72 |));.. | [sour|
|00004fc0| 63 65 5d 2e 52 53 2e 46 | 69 65 6c 64 73 28 5b 55 |ce].RS.F|ields([U|
|00004fd0| 73 65 72 4e 61 6d 65 43 | 6f 6c 75 6d 6e 5d 29 20 |serNameC|olumn]) |
|00004fe0| 3d 20 53 74 72 69 6e 67 | 28 52 65 71 75 65 73 74 |= String|(Request|
|00004ff0| 28 22 5b 75 73 65 72 6e | 61 6d 65 5d 22 29 29 3b |("[usern|ame]"));|
|00005000| 0d 0a 20 20 20 20 20 20 | 5b 73 6f 75 72 63 65 5d |.. |[source]|
|00005010| 2e 52 53 2e 46 69 65 6c | 64 73 28 5b 41 63 63 65 |.RS.Fiel|ds([Acce|
|00005020| 73 73 47 72 6f 75 70 43 | 6f 6c 75 6d 6e 5d 29 20 |ssGroupC|olumn]) |
|00005030| 3d 20 5b 41 63 63 65 73 | 73 47 72 6f 75 70 5d 3b |= [Acces|sGroup];|
|00005040| 0d 0a 20 20 20 20 20 20 | 5b 73 6f 75 72 63 65 5d |.. |[source]|
|00005050| 2e 52 53 2e 55 70 64 61 | 74 65 28 29 3b 0d 0a 20 |.RS.Upda|te();.. |
|00005060| 20 09 09 20 20 52 65 73 | 70 6f 6e 73 65 2e 52 65 | .. Res|ponse.Re|
|00005070| 64 69 72 65 63 74 28 65 | 73 63 61 70 65 28 5b 53 |direct(e|scape([S|
|00005080| 75 63 63 65 73 73 52 65 | 64 69 72 65 63 74 5d 29 |uccessRe|direct])|
|00005090| 29 3b 0d 0a 20 20 20 20 | 7d 0d 0a 20 20 20 65 6c |);.. |}.. el|
|000050a0| 73 65 7b 0d 0a 20 20 20 | 20 20 20 52 65 73 70 6f |se{.. | Respo|
|000050b0| 6e 73 65 2e 52 65 64 69 | 72 65 63 74 28 65 73 63 |nse.Redi|rect(esc|
|000050c0| 61 70 65 28 5b 46 61 69 | 6c 65 64 52 65 64 69 72 |ape([Fai|ledRedir|
|000050d0| 65 63 74 5d 29 2b 22 3f | 22 2b 20 5b 46 61 69 6c |ect])+"?|"+ [Fail|
|000050e0| 65 64 52 65 71 75 65 73 | 74 5d 20 2b 22 3d 22 2b |edReques|t] +"="+|
|000050f0| 65 73 63 61 70 65 28 6e | 61 6d 65 70 61 73 73 65 |escape(n|amepasse|
|00005100| 64 29 29 0d 0a 20 20 20 | 7d 0d 0a 7d 01 00 00 00 |d)).. |}..}....|
|00005110| ff bc 02 69 66 20 28 52 | 65 71 75 65 73 74 2e 46 |...if (R|equest.F|
|00005120| 6f 72 6d 2e 4b 65 79 28 | 22 5b 74 61 72 67 65 74 |orm.Key(|"[target|
|00005130| 5d 22 29 20 3c 3e 20 22 | 22 29 20 74 68 65 6e 0d |]") <> "|") then.|
|00005140| 0a 20 20 66 69 6c 74 65 | 72 5f 73 74 72 69 6e 67 |. filte|r_string|
|00005150| 20 3d 20 5b 55 73 65 72 | 4e 61 6d 65 43 6f 6c 75 | = [User|NameColu|
|00005160| 6d 6e 5d 20 2b 20 22 3d | 20 27 22 20 2b 20 63 73 |mn] + "=| '" + cs|
|00005170| 74 72 28 52 65 71 75 65 | 73 74 28 22 5b 75 73 65 |tr(Reque|st("[use|
|00005180| 72 6e 61 6d 65 5d 22 29 | 29 20 2b 20 22 27 22 0d |rname]")|) + "'".|
|00005190| 0a 20 20 5b 73 6f 75 72 | 63 65 5d 2e 52 53 2e 46 |. [sour|ce].RS.F|
|000051a0| 69 6c 74 65 72 3d 66 69 | 6c 74 65 72 5f 73 74 72 |ilter=fi|lter_str|
|000051b0| 69 6e 67 0d 0a 20 20 69 | 66 20 28 5b 73 6f 75 72 |ing.. i|f ([sour|
|000051c0| 63 65 5d 2e 49 73 42 4f | 46 28 29 20 61 6e 64 20 |ce].IsBO|F() and |
|000051d0| 5b 73 6f 75 72 63 65 5d | 2e 49 73 45 4f 46 28 29 |[source]|.IsEOF()|
|000051e0| 29 20 74 68 65 6e 20 6e | 61 6d 65 70 61 73 73 65 |) then n|amepasse|
|000051f0| 64 20 3d 20 31 0d 0a 20 | 20 69 66 20 28 6e 61 6d |d = 1.. | if (nam|
|00005200| 65 70 61 73 73 65 64 29 | 20 74 68 65 6e 0d 0a 20 |epassed)| then.. |
|00005210| 20 20 20 20 20 5b 73 6f | 75 72 63 65 5d 2e 52 53 | [so|urce].RS|
|00005220| 2e 41 64 64 4e 65 77 28 | 29 0d 0a 20 20 20 20 20 |.AddNew(|).. |
|00005230| 20 5b 73 6f 75 72 63 65 | 5d 2e 52 53 2e 46 69 65 | [source|].RS.Fie|
|00005240| 6c 64 73 28 5b 50 61 73 | 73 77 6f 72 64 43 6f 6c |lds([Pas|swordCol|
|00005250| 75 6d 6e 5d 29 20 3d 20 | 63 73 74 72 28 52 65 71 |umn]) = |cstr(Req|
|00005260| 75 65 73 74 28 22 5b 70 | 61 73 73 77 6f 72 64 5d |uest("[p|assword]|
|00005270| 22 29 29 0d 0a 20 20 20 | 20 20 20 5b 73 6f 75 72 |")).. | [sour|
|00005280| 63 65 5d 2e 52 53 2e 46 | 69 65 6c 64 73 28 5b 55 |ce].RS.F|ields([U|
|00005290| 73 65 72 4e 61 6d 65 43 | 6f 6c 75 6d 6e 5d 29 20 |serNameC|olumn]) |
|000052a0| 3d 20 63 73 74 72 28 52 | 65 71 75 65 73 74 28 22 |= cstr(R|equest("|
|000052b0| 5b 75 73 65 72 6e 61 6d | 65 5d 22 29 29 0d 0a 20 |[usernam|e]")).. |
|000052c0| 20 20 20 20 20 5b 73 6f | 75 72 63 65 5d 2e 52 53 | [so|urce].RS|
|000052d0| 2e 46 69 65 6c 64 73 28 | 5b 41 63 63 65 73 73 47 |.Fields(|[AccessG|
|000052e0| 72 6f 75 70 43 6f 6c 75 | 6d 6e 5d 29 20 3d 20 5b |roupColu|mn]) = [|
|000052f0| 41 63 63 65 73 73 47 72 | 6f 75 70 5d 3b 0d 0a 20 |AccessGr|oup];.. |
|00005300| 20 20 20 20 20 5b 73 6f | 75 72 63 65 5d 2e 52 53 | [so|urce].RS|
|00005310| 2e 55 70 64 61 74 65 28 | 29 0d 0a 20 20 09 09 20 |.Update(|).. .. |
|00005320| 20 52 65 73 70 6f 6e 73 | 65 2e 52 65 64 69 72 65 | Respons|e.Redire|
|00005330| 63 74 28 55 52 4c 45 73 | 63 61 70 65 53 70 61 63 |ct(URLEs|capeSpac|
|00005340| 65 73 28 5b 53 75 63 63 | 65 73 73 52 65 64 69 72 |es([Succ|essRedir|
|00005350| 65 63 74 5d 29 29 0d 0a | 20 20 20 65 6c 73 65 20 |ect]))..| else |
|00005360| 52 65 73 70 6f 6e 73 65 | 2e 52 65 64 69 72 65 63 |Response|.Redirec|
|00005370| 74 28 55 52 4c 45 73 63 | 61 70 65 53 70 61 63 65 |t(URLEsc|apeSpace|
|00005380| 73 28 5b 46 61 69 6c 65 | 64 52 65 64 69 72 65 63 |s([Faile|dRedirec|
|00005390| 74 5d 29 2b 22 3f 22 2b | 20 5b 46 61 69 6c 65 64 |t])+"?"+| [Failed|
|000053a0| 52 65 71 75 65 73 74 5d | 20 2b 22 3d 22 2b 63 73 |Request]| +"="+cs|
|000053b0| 74 72 28 6e 61 6d 65 70 | 61 73 73 65 64 29 29 0d |tr(namep|assed)).|
|000053c0| 0a 65 6e 64 20 69 66 0d | 0a 65 6e 64 20 69 66 0c |.end if.|.end if.|
|000053d0| 80 01 00 00 00 06 74 61 | 72 67 65 74 01 00 0e 80 |......ta|rget....|
|000053e0| 03 00 00 00 00 00 00 00 | 07 6f 6e 43 6c 69 63 6b |........|.onClick|
|000053f0| 01 00 08 80 04 00 00 00 | 07 6f 6e 43 6c 69 63 6b |........|.onClick|
|00005400| 02 00 00 00 00 00 00 00 | 00 01 00 00 00 00 0c 80 |........|........|
|00005410| 01 00 00 00 08 75 73 65 | 72 6e 61 6d 65 01 00 0e |.....use|rname...|
|00005420| 80 03 00 00 00 01 00 00 | 00 09 67 65 74 54 65 78 |........|..getTex|
|00005430| 74 28 29 00 00 0c 80 01 | 00 00 00 08 70 61 73 73 |t().....|....pass|
|00005440| 77 6f 72 64 01 00 0e 80 | 03 00 00 00 01 00 00 00 |word....|........|
|00005450| 09 67 65 74 54 65 78 74 | 28 29 00 00 0c 80 01 00 |.getText|()......|
|00005460| 00 00 04 66 6f 72 6d 01 | 00 0e 80 03 00 00 00 00 |...form.|........|
|00005470| 00 00 00 08 6f 6e 53 75 | 62 6d 69 74 00 00 08 00 |....onSu|bmit....|
|00005480| 05 80 05 00 00 00 0e 55 | 73 65 72 4e 61 6d 65 43 |.......U|serNameC|
|00005490| 6f 6c 75 6d 6e 04 00 00 | 00 08 00 00 00 00 00 00 |olumn...|........|
|000054a0| 00 01 00 00 00 06 73 6f | 75 72 63 65 00 00 00 00 |......so|urce....|
|000054b0| 05 80 05 00 00 00 0e 50 | 61 73 73 77 6f 72 64 43 |.......P|asswordC|
|000054c0| 6f 6c 75 6d 6e 04 00 00 | 00 08 00 00 00 00 00 00 |olumn...|........|
|000054d0| 00 01 00 00 00 06 73 6f | 75 72 63 65 00 00 00 00 |......so|urce....|
|000054e0| 05 80 05 00 00 00 0e 46 | 61 69 6c 65 64 52 65 64 |.......F|ailedRed|
|000054f0| 69 72 65 63 74 06 00 00 | 00 03 00 01 00 00 00 00 |irect...|........|
|00005500| 00 00 00 00 00 00 00 00 | 00 00 05 80 05 00 00 00 |........|........|
|00005510| 0f 53 75 63 63 65 73 73 | 52 65 64 69 72 65 63 74 |.Success|Redirect|
|00005520| 06 00 00 00 03 00 01 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005530| 00 00 00 00 00 05 80 05 | 00 00 00 12 50 61 73 73 |........|....Pass|
|00005540| 77 6f 72 64 43 6f 6e 66 | 69 72 6d 42 6f 78 00 00 |wordConf|irmBox..|
|00005550| 00 00 08 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005560| 00 00 00 05 80 05 00 00 | 00 0d 46 61 69 6c 65 64 |........|..Failed|
|00005570| 52 65 71 75 65 73 74 00 | 00 00 00 08 00 14 00 00 |Request.|........|
|00005580| 00 6e 00 61 00 6d 00 65 | 00 70 00 61 00 73 00 73 |.n.a.m.e|.p.a.s.s|
|00005590| 00 65 00 64 00 00 00 00 | 00 00 00 00 00 00 00 00 |.e.d....|........|
|000055a0| 05 80 05 00 00 00 0b 41 | 63 63 65 73 73 47 72 6f |.......A|ccessGro|
|000055b0| 75 70 00 00 00 00 08 00 | 00 00 00 00 00 00 00 00 |up......|........|
|000055c0| 00 00 00 00 00 00 00 05 | 80 05 00 00 00 11 41 63 |........|......Ac|
|000055d0| 63 65 73 73 47 72 6f 75 | 70 43 6f 6c 75 6d 6e 04 |cessGrou|pColumn.|
|000055e0| 00 00 00 08 00 00 00 00 | 00 00 00 01 00 00 00 06 |........|........|
|000055f0| 73 6f 75 72 63 65 00 00 | 00 00 08 53 65 63 75 72 |source..|...Secur|
|00005600| 69 74 79 01 00 e0 5a 9c | 93 23 83 d2 11 80 52 00 |ity...Z.|.#....R.|
|00005610| 10 4b d3 38 d1 00 00 00 | 00 03 00 00 00 01 00 00 |.K.8....|........|
|00005620| 00 03 00 08 80 04 00 00 | 00 06 6f 6e 4c 6f 61 64 |........|..onLoad|
|00005630| 01 00 00 00 00 00 00 00 | 00 08 80 04 00 00 00 06 |........|........|
|00005640| 53 65 72 76 65 72 02 00 | 00 00 00 00 00 00 2e 76 |Server..|.......v|
|00005650| 61 72 20 6e 61 6d 65 70 | 61 73 73 65 64 20 3d 20 |ar namep|assed = |
|00005660| 66 61 6c 73 65 3b 0d 0a | 76 61 72 20 70 77 70 61 |false;..|var pwpa|
|00005670| 73 73 65 64 20 3d 20 66 | 61 6c 73 65 3b 01 00 00 |ssed = f|alse;...|
|00005680| 00 3c 64 69 6d 20 6e 61 | 6d 65 70 61 73 73 65 64 |.<dim na|mepassed|
|00005690| 20 0d 0a 64 69 6d 20 70 | 77 70 61 73 73 65 64 20 | ..dim p|wpassed |
|000056a0| 0d 0a 6e 61 6d 65 70 61 | 73 73 65 64 20 3d 20 30 |..namepa|ssed = 0|
|000056b0| 0d 0a 70 77 70 61 73 73 | 65 64 20 3d 20 30 08 80 |..pwpass|ed = 0..|
|000056c0| 04 00 00 00 06 6f 6e 42 | 6c 75 72 01 00 00 00 00 |.....onB|lur.....|
|000056d0| 00 00 00 00 bb 73 f0 4c | 8a 9e d2 11 82 6a 00 60 |.....s.L|.....j.`|
|000056e0| 08 e0 86 fe 01 00 00 00 | 24 33 37 37 41 43 34 33 |........|$377AC43|
|000056f0| 30 2d 36 32 31 31 2d 31 | 31 44 32 2d 38 31 31 37 |0-6211-1|1D2-8117|
|00005700| 2d 30 30 36 30 30 38 43 | 38 36 43 32 35 03 33 2e |-006008C|86C25.3.|
|00005710| 30 ff ff 04 44 65 73 63 | 72 69 70 74 69 6f 6e 3a |0...Desc|ription:|
|00005720| 0d 0a 43 68 65 63 6b 73 | 20 74 68 65 20 64 61 74 |..Checks| the dat|
|00005730| 61 62 61 73 65 20 66 6f | 72 20 74 6f 20 6d 61 6b |abase fo|r to mak|
|00005740| 65 20 73 75 72 65 20 74 | 68 61 74 20 75 73 65 72 |e sure t|hat user|
|00005750| 6e 61 6d 65 20 69 73 20 | 75 6e 69 71 75 65 2c 20 |name is |unique, |
|00005760| 61 6e 64 20 69 6e 73 65 | 72 74 73 20 74 68 65 20 |and inse|rts the |
|00005770| 75 73 65 72 6e 61 6d 65 | 20 61 6e 64 20 70 61 73 |username| and pas|
|00005780| 73 77 6f 72 64 20 69 6e | 74 6f 20 61 20 6e 65 77 |sword in|to a new|
|00005790| 20 72 6f 77 20 69 6e 20 | 74 68 65 20 72 65 63 6f | row in |the reco|
|000057a0| 72 64 73 65 74 2e 20 20 | 4f 74 68 65 72 77 69 73 |rdset. |Otherwis|
|000057b0| 65 20 69 74 20 72 65 64 | 69 72 65 63 74 73 20 74 |e it red|irects t|
|000057c0| 6f 20 61 20 66 61 69 6c | 75 72 65 20 70 61 67 65 |o a fail|ure page|
|000057d0| 2c 20 61 6e 64 20 73 65 | 74 73 20 74 68 65 20 66 |, and se|ts the f|
|000057e0| 61 69 6c 65 64 20 72 65 | 71 75 65 73 74 20 76 61 |ailed re|quest va|
|000057f0| 72 69 61 62 6c 65 20 74 | 6f 20 66 61 6c 73 65 2e |riable t|o false.|
|00005800| 0d 0a 0d 0a 50 61 72 61 | 6d 65 74 65 72 73 3a 0d |....Para|meters:.|
|00005810| 0a 46 61 69 6c 65 64 52 | 65 71 75 65 73 74 20 2d |.FailedR|equest -|
|00005820| 20 20 56 61 72 69 61 62 | 6c 65 20 74 6f 20 61 64 | Variab|le to ad|
|00005830| 64 20 74 6f 20 74 68 65 | 20 72 65 71 75 65 73 74 |d to the| request|
|00005840| 20 6f 6e 20 74 68 65 20 | 66 61 69 6c 65 64 20 72 | on the |failed r|
|00005850| 65 64 69 72 65 63 74 20 | 70 61 67 65 20 69 66 20 |edirect |page if |
|00005860| 75 73 65 72 6e 61 6d 65 | 20 69 73 20 6e 6f 74 20 |username| is not |
|00005870| 75 6e 69 71 75 65 2e 0d | 0a 0d 0a 53 75 63 63 65 |unique..|...Succe|
|00005880| 73 73 52 65 64 69 72 65 | 63 74 20 2d 20 50 61 67 |ssRedire|ct - Pag|
|00005890| 65 20 74 6f 20 72 65 64 | 69 72 65 63 74 20 74 6f |e to red|irect to|
|000058a0| 20 69 66 20 74 68 65 20 | 75 73 65 72 20 69 73 20 | if the |user is |
|000058b0| 69 6e 20 74 68 65 20 64 | 61 74 61 62 61 73 65 0d |in the d|atabase.|
|000058c0| 0a 0d 0a 46 61 69 6c 65 | 64 52 65 64 69 72 65 63 |...Faile|dRedirec|
|000058d0| 74 20 2d 20 50 61 67 65 | 20 74 6f 20 72 65 64 69 |t - Page| to redi|
|000058e0| 72 65 63 74 20 74 6f 20 | 69 66 20 74 68 65 20 75 |rect to |if the u|
|000058f0| 73 65 72 6e 61 6d 65 20 | 61 6e 64 20 70 61 73 73 |sername |and pass|
|00005900| 77 6f 72 64 20 61 72 65 | 20 69 6e 76 61 6c 69 64 |word are| invalid|
|00005910| 0d 0a 0d 0a 55 73 65 72 | 4e 61 6d 65 43 6f 6c 75 |....User|NameColu|
|00005920| 6d 6e 20 2d 20 43 6f 6c | 75 6d 6e 20 69 6e 20 74 |mn - Col|umn in t|
|00005930| 68 65 20 64 61 74 61 62 | 61 73 65 20 74 68 61 74 |he datab|ase that|
|00005940| 20 63 6f 6e 74 61 69 6e | 73 20 74 68 65 20 75 73 | contain|s the us|
|00005950| 65 72 20 6e 61 6d 65 0d | 0a 0d 0a 50 61 73 73 77 |er name.|...Passw|
|00005960| 6f 72 64 43 6f 6c 75 6d | 6e 20 2d 20 43 6f 6c 75 |ordColum|n - Colu|
|00005970| 6d 6e 20 69 6e 20 74 68 | 65 20 64 61 74 61 62 61 |mn in th|e databa|
|00005980| 73 65 20 74 68 61 74 20 | 63 6f 6e 74 61 69 6e 73 |se that |contains|
|00005990| 20 74 68 65 20 70 61 73 | 73 77 6f 72 64 0d 0a 0d | the pas|sword...|
|000059a0| 0a 50 61 73 73 77 6f 72 | 64 43 6f 6e 66 69 72 6d |.Passwor|dConfirm|
|000059b0| 42 6f 78 20 2d 20 28 6f | 70 74 69 6f 6e 61 6c 29 |Box - (o|ptional)|
|000059c0| 20 61 64 64 69 74 69 6f | 6e 61 6c 20 66 69 65 6c | additio|nal fiel|
|000059d0| 64 20 74 68 61 74 20 6d | 75 73 74 20 68 61 76 65 |d that m|ust have|
|000059e0| 20 69 64 65 6e 74 69 63 | 61 6c 20 63 6f 6e 74 65 | identic|al conte|
|000059f0| 6e 74 20 74 6f 20 74 68 | 65 20 70 61 73 73 77 6f |nt to th|e passwo|
|00005a00| 72 64 20 65 64 69 74 20 | 62 6f 78 2e 0d 0a 0d 0a |rd edit |box.....|
|00005a10| 55 6e 69 71 75 65 20 4b | 65 79 20 2d 20 20 54 68 |Unique K|ey - Th|
|00005a20| 65 20 75 6e 69 71 75 65 | 20 66 69 65 6c 64 20 69 |e unique| field i|
|00005a30| 6e 20 74 68 65 20 64 61 | 74 61 62 61 73 65 20 75 |n the da|tabase u|
|00005a40| 73 65 64 20 74 6f 20 66 | 69 6e 64 20 74 68 65 20 |sed to f|ind the |
|00005a50| 6f 72 69 67 69 6e 61 6c | 20 72 65 63 6f 72 64 20 |original| record |
|00005a60| 61 66 74 65 72 20 73 65 | 61 72 63 68 69 6e 67 20 |after se|arching |
|00005a70| 74 68 65 20 64 61 74 61 | 62 61 73 65 20 66 6f 72 |the data|base for|
|00005a80| 20 74 68 65 20 75 73 65 | 72 6e 61 6d 65 2e 20 20 | the use|rname. |
|00005a90| 54 68 69 73 20 63 61 6e | 6e 6f 74 20 62 65 20 74 |This can|not be t|
|00005aa0| 68 65 20 75 73 65 72 6e | 61 6d 65 20 6f 72 20 70 |he usern|ame or p|
|00005ab0| 61 73 73 77 6f 72 64 20 | 66 69 65 6c 64 2e 0d 0a |assword |field...|
|00005ac0| 0d 0a 54 79 70 69 63 61 | 6c 20 50 61 72 74 69 63 |..Typica|l Partic|
|00005ad0| 69 70 61 6e 74 73 3a 0d | 0a 5b 73 6f 75 72 63 65 |ipants:.|.[source|
|00005ae0| 5d 20 2d 20 72 65 63 6f | 72 64 73 65 74 0d 0a 5b |] - reco|rdset..[|
|00005af0| 74 61 72 67 65 74 5d 20 | 2d 20 69 6d 61 67 65 2c |target] |- image,|
|00005b00| 20 62 75 74 74 6f 6e 2c | 20 6f 72 20 61 6e 79 20 | button,| or any |
|00005b10| 63 6c 69 63 6b 61 62 6c | 65 20 6f 62 6a 65 63 74 |clickabl|e object|
|00005b20| 0d 0a 5b 75 73 65 72 6e | 61 6d 65 5d 20 2d 20 65 |..[usern|ame] - e|
|00005b30| 64 69 74 20 62 6f 78 0d | 0a 5b 70 61 73 73 77 6f |dit box.|.[passwo|
|00005b40| 72 64 5d 20 2d 65 64 69 | 74 20 62 6f 78 0d 0a 5b |rd] -edi|t box..[|
|00005b50| 66 6f 72 6d 5d 20 2d 20 | 66 6f 72 6d 20 66 72 6f |form] - |form fro|
|00005b60| 6d 20 62 61 73 65 6d 65 | 6e 74 0d 0a 0d 0a 46 6f |m baseme|nt....Fo|
|00005b70| 72 20 6d 6f 72 65 20 69 | 6e 66 6f 72 6d 61 74 69 |r more i|nformati|
|00005b80| 6f 6e 20 6f 6e 20 63 6f | 6e 74 72 61 63 74 73 20 |on on co|ntracts |
|00005b90| 6f 66 20 74 68 69 73 20 | 63 61 74 65 67 6f 72 79 |of this |category|
|00005ba0| 2c 20 70 6c 65 61 73 65 | 20 72 65 66 65 72 20 74 |, please| refer t|
|00005bb0| 6f 0d 0a 53 65 63 75 72 | 69 74 79 2e 64 6f 63 0d |o..Secur|ity.doc.|
|00005bc0| 0a 54 68 69 73 20 66 69 | 6c 65 20 69 73 20 61 76 |.This fi|le is av|
|00005bd0| 61 69 6c 61 62 6c 65 20 | 69 6e 20 74 68 65 20 43 |ailable |in the C|
|00005be0| 6f 6e 74 72 61 63 74 73 | 20 66 6f 6c 64 65 72 20 |ontracts| folder |
|00005bf0| 69 6e 20 74 68 65 20 44 | 72 75 6d 62 65 61 74 20 |in the D|rumbeat |
|00005c00| 64 69 72 65 63 74 6f 72 | 79 2e 0d 0a 56 31 30 5f |director|y...V10_|
|00005c10| 33 30 2e 03 80 12 00 00 | 00 6a 55 70 64 61 74 65 |30......|.jUpdate|
|00005c20| 20 5b 75 73 65 72 6e 61 | 6d 65 5d 20 61 6e 64 20 | [userna|me] and |
|00005c30| 5b 70 61 73 73 77 6f 72 | 64 5d 20 69 6e 74 6f 20 |[passwor|d] into |
|00005c40| 5b 73 6f 75 72 63 65 5d | 20 69 66 20 5b 75 73 65 |[source]| if [use|
|00005c50| 72 6e 61 6d 65 5d 20 69 | 73 20 75 6e 69 71 75 65 |rname] i|s unique|
|00005c60| 20 69 6e 20 5b 73 6f 75 | 72 63 65 5d 20 61 6e 64 | in [sou|rce] and|
|00005c70| 20 64 65 66 69 6e 65 20 | 41 63 63 65 73 73 20 47 | define |Access G|
|00005c80| 72 6f 75 70 00 00 00 00 | 00 05 00 0c 80 01 00 00 |roup....|........|
|00005c90| 00 06 73 6f 75 72 63 65 | 02 00 0e 80 03 00 00 00 |..source|........|
|00005ca0| 00 00 00 00 08 53 65 72 | 76 65 72 28 29 0e 80 03 |.....Ser|ver()...|
|00005cb0| 00 00 00 01 00 00 00 14 | 47 65 74 43 6f 6c 75 6d |........|GetColum|
|00005cc0| 6e 56 61 6c 75 65 28 6e | 61 6d 65 29 01 00 08 80 |nValue(n|ame)....|
|00005cd0| 04 00 00 00 08 53 65 72 | 76 65 72 28 29 02 00 00 |.....Ser|ver()...|
|00005ce0| 00 00 00 00 00 ff 8d 03 | 76 61 72 20 6e 61 6d 65 |........|var name|
|00005cf0| 70 61 73 73 65 64 20 3d | 20 66 61 6c 73 65 3b 0d |passed =| false;.|
|00005d00| 0a 69 66 20 28 53 74 72 | 69 6e 67 28 53 65 73 73 |.if (Str|ing(Sess|
|00005d10| 69 6f 6e 28 22 4b 65 79 | 56 61 6c 75 65 22 29 29 |ion("Key|Value"))|
|00005d20| 3d 3d 22 75 6e 64 65 66 | 69 6e 65 64 22 29 0d 0a |=="undef|ined")..|
|00005d30| 20 20 20 20 53 65 73 73 | 69 6f 6e 28 22 4b 65 79 | Sess|ion("Key|
|00005d40| 56 61 6c 75 65 22 29 3d | 53 74 72 69 6e 67 28 5b |Value")=|String([|
|00005d50| 73 6f 75 72 63 65 5d 2e | 52 53 2e 46 69 65 6c 64 |source].|RS.Field|
|00005d60| 73 28 5b 55 6e 69 71 75 | 65 4b 65 79 5d 29 2e 76 |s([Uniqu|eKey]).v|
|00005d70| 61 6c 75 65 29 0d 0a 69 | 66 20 28 52 65 71 75 65 |alue)..i|f (Reque|
|00005d80| 73 74 2e 46 6f 72 6d 2e | 4b 65 79 28 22 5b 74 61 |st.Form.|Key("[ta|
|00005d90| 72 67 65 74 5d 22 29 20 | 21 3d 20 22 22 29 20 20 |rget]") |!= "") |
|00005da0| 7b 0d 0a 20 20 76 61 72 | 20 66 69 6c 74 65 72 5f |{.. var| filter_|
|00005db0| 73 74 72 69 6e 67 20 3d | 20 5b 55 73 65 72 4e 61 |string =| [UserNa|
|00005dc0| 6d 65 43 6f 6c 75 6d 6e | 5d 20 2b 20 22 3d 20 27 |meColumn|] + "= '|
|00005dd0| 22 20 2b 20 53 74 72 69 | 6e 67 28 52 65 71 75 65 |" + Stri|ng(Reque|
|00005de0| 73 74 28 22 5b 75 73 65 | 72 6e 61 6d 65 5d 22 29 |st("[use|rname]")|
|00005df0| 29 20 2b 20 22 27 22 3b | 0d 0a 20 20 5b 73 6f 75 |) + "'";|.. [sou|
|00005e00| 72 63 65 5d 2e 52 53 2e | 46 69 6c 74 65 72 3d 66 |rce].RS.|Filter=f|
|00005e10| 69 6c 74 65 72 5f 73 74 | 72 69 6e 67 0d 0a 20 20 |ilter_st|ring.. |
|00005e20| 69 66 20 28 5b 73 6f 75 | 72 63 65 5d 2e 49 73 42 |if ([sou|rce].IsB|
|00005e30| 4f 46 28 29 20 26 26 20 | 5b 73 6f 75 72 63 65 5d |OF() && |[source]|
|00005e40| 2e 49 73 45 4f 46 28 29 | 29 0d 0a 20 20 20 20 6e |.IsEOF()|).. n|
|00005e50| 61 6d 65 70 61 73 73 65 | 64 20 3d 20 74 72 75 65 |amepasse|d = true|
|00005e60| 3b 0d 0a 20 20 69 66 20 | 28 6e 61 6d 65 70 61 73 |;.. if |(namepas|
|00005e70| 73 65 64 29 0d 0a 20 20 | 20 20 7b 0d 0a 20 20 20 |sed).. | {.. |
|00005e80| 20 20 20 5b 73 6f 75 72 | 63 65 5d 2e 52 53 2e 46 | [sour|ce].RS.F|
|00005e90| 69 6c 74 65 72 3d 20 5b | 55 6e 69 71 75 65 4b 65 |ilter= [|UniqueKe|
|00005ea0| 79 5d 20 2b 20 22 3d 20 | 27 22 20 2b 20 53 74 72 |y] + "= |'" + Str|
|00005eb0| 69 6e 67 28 53 65 73 73 | 69 6f 6e 28 22 4b 65 79 |ing(Sess|ion("Key|
|00005ec0| 56 61 6c 75 65 22 29 29 | 20 2b 20 22 27 22 3b 0d |Value"))| + "'";.|
|00005ed0| 0a 20 20 20 20 20 20 5b | 73 6f 75 72 63 65 5d 2e |. [|source].|
|00005ee0| 52 53 2e 46 69 65 6c 64 | 73 28 5b 50 61 73 73 77 |RS.Field|s([Passw|
|00005ef0| 6f 72 64 43 6f 6c 75 6d | 6e 5d 29 20 3d 20 53 74 |ordColum|n]) = St|
|00005f00| 72 69 6e 67 28 52 65 71 | 75 65 73 74 28 22 5b 70 |ring(Req|uest("[p|
|00005f10| 61 73 73 77 6f 72 64 5d | 22 29 29 3b 0d 0a 20 20 |assword]|"));.. |
|00005f20| 20 20 20 20 5b 73 6f 75 | 72 63 65 5d 2e 52 53 2e | [sou|rce].RS.|
|00005f30| 46 69 65 6c 64 73 28 5b | 55 73 65 72 4e 61 6d 65 |Fields([|UserName|
|00005f40| 43 6f 6c 75 6d 6e 5d 29 | 20 3d 20 53 74 72 69 6e |Column])| = Strin|
|00005f50| 67 28 52 65 71 75 65 73 | 74 28 22 5b 75 73 65 72 |g(Reques|t("[user|
|00005f60| 6e 61 6d 65 5d 22 29 29 | 3b 0d 0a 20 20 20 20 20 |name]"))|;.. |
|00005f70| 20 5b 73 6f 75 72 63 65 | 5d 2e 52 53 2e 46 69 65 | [source|].RS.Fie|
|00005f80| 6c 64 73 28 5b 41 63 63 | 65 73 73 47 72 6f 75 70 |lds([Acc|essGroup|
|00005f90| 43 6f 6c 75 6d 6e 5d 29 | 20 3d 20 5b 41 63 63 65 |Column])| = [Acce|
|00005fa0| 73 73 47 72 6f 75 70 5d | 3b 0d 0a 20 20 20 20 20 |ssGroup]|;.. |
|00005fb0| 20 5b 73 6f 75 72 63 65 | 5d 2e 52 53 2e 55 70 64 | [source|].RS.Upd|
|00005fc0| 61 74 65 28 29 3b 0d 0a | 20 20 09 09 20 20 52 65 |ate();..| .. Re|
|00005fd0| 73 70 6f 6e 73 65 2e 52 | 65 64 69 72 65 63 74 28 |sponse.R|edirect(|
|00005fe0| 65 73 63 61 70 65 28 5b | 53 75 63 63 65 73 73 52 |escape([|SuccessR|
|00005ff0| 65 64 69 72 65 63 74 5d | 29 29 3b 0d 0a 20 20 20 |edirect]|));.. |
|00006000| 20 7d 0d 0a 20 20 20 65 | 6c 73 65 7b 0d 0a 20 20 | }.. e|lse{.. |
|00006010| 20 20 20 20 52 65 73 70 | 6f 6e 73 65 2e 52 65 64 | Resp|onse.Red|
|00006020| 69 72 65 63 74 28 65 73 | 63 61 70 65 28 5b 46 61 |irect(es|cape([Fa|
|00006030| 69 6c 65 64 52 65 64 69 | 72 65 63 74 5d 29 2b 22 |iledRedi|rect])+"|
|00006040| 3f 22 2b 20 5b 46 61 69 | 6c 65 64 52 65 71 75 65 |?"+ [Fai|ledReque|
|00006050| 73 74 5d 20 2b 22 3d 22 | 2b 65 73 63 61 70 65 28 |st] +"="|+escape(|
|00006060| 6e 61 6d 65 70 61 73 73 | 65 64 29 29 0d 0a 20 20 |namepass|ed)).. |
|00006070| 20 7d 0d 0a 7d 01 00 00 | 00 ff 59 03 69 66 20 28 | }..}...|..Y.if (|
|00006080| 63 73 74 72 28 53 65 73 | 73 69 6f 6e 28 22 4b 65 |cstr(Ses|sion("Ke|
|00006090| 79 56 61 6c 75 65 22 29 | 29 3d 22 22 29 20 74 68 |yValue")|)="") th|
|000060a0| 65 6e 20 53 65 73 73 69 | 6f 6e 28 22 4b 65 79 56 |en Sessi|on("KeyV|
|000060b0| 61 6c 75 65 22 29 3d 63 | 73 74 72 28 5b 73 6f 75 |alue")=c|str([sou|
|000060c0| 72 63 65 5d 2e 52 53 2e | 46 69 65 6c 64 73 28 5b |rce].RS.|Fields([|
|000060d0| 55 6e 69 71 75 65 4b 65 | 79 5d 29 2e 76 61 6c 75 |UniqueKe|y]).valu|
|000060e0| 65 29 0d 0a 69 66 20 28 | 52 65 71 75 65 73 74 2e |e)..if (|Request.|
|000060f0| 46 6f 72 6d 2e 4b 65 79 | 28 22 5b 74 61 72 67 65 |Form.Key|("[targe|
|00006100| 74 5d 22 29 20 3c 3e 20 | 22 22 29 20 74 68 65 6e |t]") <> |"") then|
|00006110| 0d 0a 20 20 66 69 6c 74 | 65 72 5f 73 74 72 69 6e |.. filt|er_strin|
|00006120| 67 20 3d 20 5b 55 73 65 | 72 4e 61 6d 65 43 6f 6c |g = [Use|rNameCol|
|00006130| 75 6d 6e 5d 20 2b 20 22 | 3d 20 27 22 20 2b 20 63 |umn] + "|= '" + c|
|00006140| 73 74 72 28 52 65 71 75 | 65 73 74 28 22 5b 75 73 |str(Requ|est("[us|
|00006150| 65 72 6e 61 6d 65 5d 22 | 29 29 20 2b 20 22 27 22 |ername]"|)) + "'"|
|00006160| 0d 0a 20 20 5b 73 6f 75 | 72 63 65 5d 2e 52 53 2e |.. [sou|rce].RS.|
|00006170| 46 69 6c 74 65 72 3d 66 | 69 6c 74 65 72 5f 73 74 |Filter=f|ilter_st|
|00006180| 72 69 6e 67 0d 0a 20 20 | 69 66 20 28 5b 73 6f 75 |ring.. |if ([sou|
|00006190| 72 63 65 5d 2e 49 73 42 | 4f 46 28 29 20 61 6e 64 |rce].IsB|OF() and|
|000061a0| 20 5b 73 6f 75 72 63 65 | 5d 2e 49 73 45 4f 46 28 | [source|].IsEOF(|
|000061b0| 29 29 20 74 68 65 6e 20 | 6e 61 6d 65 70 61 73 73 |)) then |namepass|
|000061c0| 65 64 20 3d 20 31 0d 0a | 20 20 69 66 20 28 6e 61 |ed = 1..| if (na|
|000061d0| 6d 65 70 61 73 73 65 64 | 29 20 74 68 65 6e 0d 0a |mepassed|) then..|
|000061e0| 20 20 20 20 20 20 5b 73 | 6f 75 72 63 65 5d 2e 52 | [s|ource].R|
|000061f0| 53 2e 46 69 6c 74 65 72 | 3d 20 5b 55 6e 69 71 75 |S.Filter|= [Uniqu|
|00006200| 65 4b 65 79 5d 20 2b 20 | 22 3d 20 27 22 20 2b 20 |eKey] + |"= '" + |
|00006210| 63 73 74 72 28 53 65 73 | 73 69 6f 6e 28 22 4b 65 |cstr(Ses|sion("Ke|
|00006220| 79 56 61 6c 75 65 22 29 | 29 20 2b 20 22 27 22 0d |yValue")|) + "'".|
|00006230| 0a 20 20 20 20 20 20 5b | 73 6f 75 72 63 65 5d 2e |. [|source].|
|00006240| 52 53 2e 46 69 65 6c 64 | 73 28 5b 50 61 73 73 77 |RS.Field|s([Passw|
|00006250| 6f 72 64 43 6f 6c 75 6d | 6e 5d 29 20 3d 20 63 73 |ordColum|n]) = cs|
|00006260| 74 72 28 52 65 71 75 65 | 73 74 28 22 5b 70 61 73 |tr(Reque|st("[pas|
|00006270| 73 77 6f 72 64 5d 22 29 | 29 0d 0a 20 20 20 20 20 |sword]")|).. |
|00006280| 20 5b 73 6f 75 72 63 65 | 5d 2e 52 53 2e 46 69 65 | [source|].RS.Fie|
|00006290| 6c 64 73 28 5b 55 73 65 | 72 4e 61 6d 65 43 6f 6c |lds([Use|rNameCol|
|000062a0| 75 6d 6e 5d 29 20 3d 20 | 63 73 74 72 28 52 65 71 |umn]) = |cstr(Req|
|000062b0| 75 65 73 74 28 22 5b 75 | 73 65 72 6e 61 6d 65 5d |uest("[u|sername]|
|000062c0| 22 29 29 0d 0a 20 20 20 | 20 20 20 5b 73 6f 75 72 |")).. | [sour|
|000062d0| 63 65 5d 2e 52 53 2e 46 | 69 65 6c 64 73 28 5b 41 |ce].RS.F|ields([A|
|000062e0| 63 63 65 73 73 47 72 6f | 75 70 43 6f 6c 75 6d 6e |ccessGro|upColumn|
|000062f0| 5d 29 20 3d 20 5b 41 63 | 63 65 73 73 47 72 6f 75 |]) = [Ac|cessGrou|
|00006300| 70 5d 3b 0d 0a 20 20 20 | 20 20 20 5b 73 6f 75 72 |p];.. | [sour|
|00006310| 63 65 5d 2e 52 53 2e 55 | 70 64 61 74 65 28 29 0d |ce].RS.U|pdate().|
|00006320| 0a 20 20 09 09 20 20 52 | 65 73 70 6f 6e 73 65 2e |. .. R|esponse.|
|00006330| 52 65 64 69 72 65 63 74 | 28 55 52 4c 45 73 63 61 |Redirect|(URLEsca|
|00006340| 70 65 53 70 61 63 65 73 | 28 5b 53 75 63 63 65 73 |peSpaces|([Succes|
|00006350| 73 52 65 64 69 72 65 63 | 74 5d 29 29 0d 0a 20 20 |sRedirec|t])).. |
|00006360| 20 65 6c 73 65 20 52 65 | 73 70 6f 6e 73 65 2e 52 | else Re|sponse.R|
|00006370| 65 64 69 72 65 63 74 28 | 55 52 4c 45 73 63 61 70 |edirect(|URLEscap|
|00006380| 65 53 70 61 63 65 73 28 | 5b 46 61 69 6c 65 64 52 |eSpaces(|[FailedR|
|00006390| 65 64 69 72 65 63 74 5d | 29 2b 22 3f 22 2b 20 5b |edirect]|)+"?"+ [|
|000063a0| 46 61 69 6c 65 64 52 65 | 71 75 65 73 74 5d 20 2b |FailedRe|quest] +|
|000063b0| 22 3d 22 2b 63 73 74 72 | 28 6e 61 6d 65 70 61 73 |"="+cstr|(namepas|
|000063c0| 73 65 64 29 29 0d 0a 65 | 6e 64 20 69 66 0d 0a 65 |sed))..e|nd if..e|
|000063d0| 6e 64 20 69 66 0c 80 01 | 00 00 00 06 74 61 72 67 |nd if...|....targ|
|000063e0| 65 74 01 00 0e 80 03 00 | 00 00 00 00 00 00 07 6f |et......|.......o|
|000063f0| 6e 43 6c 69 63 6b 01 00 | 08 80 04 00 00 00 07 6f |nClick..|.......o|
+--------+-------------------------+-------------------------+--------+--------+
Only 25.0 KB of data is shown above.
